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OPUS o la rapidez de los floppys 
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Programas en BASIC, Pascal y Forth 
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A buen seguro que е! saco lleno de Spectrums que portaba nues- 
tro Santaclair del número anterior, se quedó rápidamente vacio. Para 
los nuevos usuarios, nuestro más caluroso recibimiento, y para los 
demás, seguro que tampoco se olvidó de ellos Santaclair y les trajo 
¡Algún periférico. 

У como hablamos de periféricos, nada mejor que empezar el año 
echando una miradita al Opus, la unidad de disco que se hiciera fa- 
тоза en Inglaterra, ahora comercializada en España. 

Еп el capítulo de software, dos son los programas más significati- 
vos con los que podrá presumir de realizar el CAD/CAM con su 

Spectrum (es decir, diseño gráfico por ordenador) y si usted es profe- 
sor, modernizarse en el tratamiento de evaluaciones, 

Los aficionados a los juegos verán una pequeña reducción en el 
número de programas, que se compensa con la calidad de los mis- 
mos, y que fue necesario para dar cabida a otros temas que se nos 
pedían, En este sentido, esperamos saciar la curiosidad de quienes 
nos pedían que explicásemos cómo hacíamos las pantallas. 

“Feliz año nuevo. 


Q‏ ڪڪ 


4 OPUS, O LA RAPIDEZ DE LOS FLOPPYS. Analiza- 
mos la primera unidad de discos disponible para el Spec- 
trum. 

8 DISEÑO ASISTIDO POR... SPECTRUM. Un progra- 
ma en BASIC permite el diseño gráfico. 

18 64 CARACTERES POR LINEA. Una corta rutina en 
código máquina cambia completamente el aspecto de su 
pantalla. 

26 JUEGO DE LA VIDA. BASIC comentado a fondo me- 
diante este popular juego. 

30 DESCUBRIMIENTO DE UN NUEVO LENGUAJE: 
PASCAL (2). Segunda parte del lenguaje que hace furor 
en Telecomunicaciones. 

35 ASI HACEMOS LAS PORTADAS. Hablamos con Víc- 

tor Ruiz sobre cómo realiza las portadas de TODOSPEC- 
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CONTROL DE EVALUACIONES. Programa de peda- 

gogía especialmente recomendado para profesores. 

48 PROGRAMAS: Simulador de vuelo, Damas chinas, Ro- 
manos en Forth y Pascal. 

55 GUSANEZ. Los reyes le traen un Plus. 

64 PREGUNTAS Y RESPUESTAS, Un lector nos propone 
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ble. 

66 PROGRAMANDO ENTRE AMIGOS. Entrevistamos al 

grupo de programadores de Software Centre en Barcelo- 

na. 


Con Іа carta a sus Majestades, 
y un poquito de ayuda del programa 
Artist, no nos faltaron los regalos. 
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Desde el pasado mes de junio. más de cien unidades han 


sido соте! 


alizadas por la firma Silog. Acostumbrados а 


otros periféricos v al mismo Spectrum, su precio puede 
parecer ligeramente elevado. Pero la relación 
precio-prestaciones lo hacen más que aconsejable. Con 
ellos se cierra la oferta de periféricos de almacenamiento 
de datos: cintas, cartuchos microdrive o wafadrive y discos. 
Toda una panoplia de ofertas diferentes en calidad y 


precio. 


el mismo color negro que el 
D Spectrum, la unidad de dis- 
cos Opus y el interface es- 
ШЕШ tán preparados рага una 
cómoda y fácil conexión, 
sin desentonar con su ordenador. 
Las dimensiones del interface (14 x 


9,5 x 2,5 cm.) imposibilitan la en- 
trada de corriente, previsto por la 
nueva entrada vía interface, pero 
no así la conexión МІС, de difícil о 
imposible acceso con el interface 
conectado (aunque se trabaje con 
disco, siempre puede ser interesan- 


te grabar datos en un cassette). Si 
piensa en el interface 1 como sepa- 
rador, mejor olvídelo: no son com- 
patibles. El resto de las conexiones 
no se ven afectadas, quedando 
abierto un nuevo port de expan- 
sión en la parte posterior, para la 
incorporación de nuevos periféricos. 

El interface puede controlar dis- 
cos de 40 a 80 sectores, densidad 
normal o doble. En otras palabras, 
se puede disponer de discos con 
capacidades que oscilan entre las 
100 y 400 Kbytes en sus distintas 
configuraciones. Por el momento, 
la firma Silog sólo comercializa los 
de 40 pistas-100 Kbytes, objeto de 
nuestro análisis. Teniendo en 
cuenta que se pueden conectar si- 


multáneamente hasta un máximo 
de cuatro unidades, esto arroja la 
respetable cifra de 1.600 Kbytes o 
1,6 Megabytes de memoria externa, 

Un amplio cable de conexión 
con el interface permite trabajar 
cómodamente, a lo que se unen las 
pequeñas dimensiones de la uni- 
dad de discos (15 x 23 x 4,5 cm.) 
para lo que viene siendo normal. 
Pero no es este su mayor atractivo 
Al margen de la capacidad antes 
descrita, está la posibilidad de traba- 
jar con ficheros de datos aleatorios. 
Una simple comparación entre los 
distintos sistemas de almacenamien- 
to, nos da una idea de la velocidad: 
cargar el extenso programa BASIC 
de pedagogía que se incluye en este 
número, supuso los siguientes tiem- 
pos según el medio empleado: 


Cassettes sar 334” 
Microdrive «009 
Disco Opus... зыб” 


El dato del microdrive corres- 
ponde al promedio de cinco lectu- 
ras distintas, ya que según la posi- 


ola 


nuevamente en el DOS, se teclea 
RANDOMIZE USR 15360. 
Algunos comandos son ya cono- 
cidos, como es el caso de FOR- 
MAT, ERASE, LOAD, SAVE, 
MOVE y CAT, de utilización con 
el microdrive. Al igual que éstos, 
los discos han de inicializarse para 
poder trabajar con ellos. RUN 
“format” CODE permite trabajar 
con discos de cuatro formatos dis- 
tintos: 
* Mini-floppy Format Ver 2.3* 
© 1984 Technology Research 
Ltd 
40 track single sided 
80 track single sided 
40 track double sided 
80 track double sided 
———— Quit 
Which format 
Suponiendo que elige la opción 
de 40 sectores densidad normal, 
aparecerá el siguiente mensaje: 


* 40 track singleside * 
Which drive? (A, B, C, D, Me- 
nu) A 


оғыы- 


Please insert disk іп drive А 
When you are ready, type 

F for format 

V for verify 

Q for quit 


El comando CAT informa del 
contenido del disco. Las tres pri- 
meras líneas indican el nombre del 
disco, el número de archivos exis- 
tentes y borrados, respectivamen- 
te. Las siguientes líneas muestran 
los nombres de los programas y 
algo muy importante, si están gra- 
bados en BASIC <B> o en código 
máquina <C>. El número que le 
acompaña indica la longitud del 
programa en sectores (1 Kbyte = 4 
sectores). La última línea informa 
de la memoria disponible. 

Title: Utility 

3 File(s) 

0 Del. File(s) 

A: format <C>10 
А: сору «С» 14 
364 Free 


SAVE permite la grabación de 
programas, del mismo modo que 


: copy «В» 2 


rapidez 


del floppy 


ción de la cinta los tiempos de ac- 
ceso pueden diferir significativa- 
mente. La velocidad es, por tanto, 
similar al microdrive, si tenemos 
en cuenta su mayor capacidad. 
Para ver las restantes сагасіегі5- 
ticas, hemos de analizar los nuevos 
comandos que incorpora el inter- 
face. Conectado al Spectrum, apa- 
rece el mensaje de la versión de in- 
terface y el nombre de Technology 
Research en la parte superior. En 
la parte inferior aparece el símbolo 
“A >”, que indica que se está en el 
DOS (Disk Operating System o 
Sistema Operativo por Disco), y 
no en el BASIC de Sinclair. Para 
volver al BASIC se presiona RE- 
TURN y ENTER. Para entrar 


estamos acostumbrados соп cas- 

sette o microdrive. 

SAVE “archivo” 

SAVE “archivo” CODE 36000 
Del mismo modo, LOAD reali- 

za la carga del programa. Una vez 

finalizada esta, se pasa automáti- 

camente al BASIC, listándose el 

programa. 


LOAD “archivo” 
LOAD “archivo” CODE 36000 

Comando que se puede sustituir 
por RUN para la carga y ejecución 
automática del programa (aunque 
no estuviese grabado con la ins- 
trucción SAVE ““LINE XXXX). 
RUN “archivo” 

RUN “archivo” CODE 

También es posible utilizar la 
instrucción MERGE para combi- 
nar dos o más programas en BA- 
SIC. 

MERGE “anterior” 

MERGE “b:nuevo: 

en este segundo caso se cargaría el 
programa “nuevo” de la segunda 
unidad de discos conectada, en su 
caso, combinándose con el resi- 
dente en memoria. 

La eliminación de ficheros es 
igualmente realizada por ERASE, 
del mismo modo que si se tratase 
del microdrive. 

ERASE “archivo” 
ERASE “archivo” CODE 
ERASE “archivo” DATA 


pero con una notable diferencia: 
los “huecos” resultado de eliminar 
ficheros pueden eliminarse por 
efecto de una nueva instrucción. 
MOVE (no confundir con la utili- 


zación que de este comando hace 
el interface 1) reorganiza la infor- 
mación para evitar la dispersión de 
datos típicos del microdrive, cau- 
sante de los incrementos en tiempos 
de acceso conforme se va utilizando. 


MOVE 


Otro comando que trabaja de 
forma diferente a lo que estamos 
habituados es NEW. En esta oca- 
sión no se elimina nada de la me- 
moria. Sirve para cambiar la deno- 
minación de un archivo o progra- 
ma (recuerde que en el microdrive 
esto supone cargar el programa, 
grabarlo con el nuevo nombre y 
eliminar el nombre antiguo, sin 
perjuicio de la imposibilidad de 
reorganizar la cinta, salvo que se 
vuelva a formatear). 


NEW “nuevo nombre”, “nombre 
anterior” 
NEW “nuevo nombre”, “nombre 


anterior” CODE 
NEW “nuevo nombre”, 
anterior” DATA 

Y finalmente nos encontramos 
con los comandos PEEK y POKE. 
Potentes herramientas que nos fa- 
cilitarán el acceso aleatorio al dis- 
co. PEEK lee los sectores del disco 
(un sector por acceso), colocando 
la información en un buffer RAM. 
PEEK “nombre archivo” direc- 
ción buffer, número registro 
PEEK “TEST” 30023,1 

Lee el primer sector de TEST y 

queda en buffer RAM con direc- 

ción 30023. 

POKE realiza la operación in- 
versa, es decir, graba la informa- 
ción por sectores: 


“nombre 


SIGO PENSANDO 
QUE ESA RANURA 
ES PEQUEÑA 

POR FAVOR ; 
695 
LEETE EL MANUAL 
y A 


JARA RAPIDA! 
JAI 


POKE “nombre archivo” direc- 
ción buffer, número registro 
POKE “TEST”, 30023,1 
La información contenida en la 
dirección 30023 se graba en el 
primersector del archivo TEST. 


Se puede, por tanto, trabajar con 
archivos aleatorios y olvidarse de 
los secuenciales (única posibilidad 
con la cinta y microdrive), aunque 
la elección de un tipo u otro de ar- 
chivo dependerá de las aplicacio- 
nes a realizar. Sin embargo, el ma- 
nejo de archivos por este sistema 
dista mucho de ser sencillo. Para 
facilitar esta labor, las instruccio- 
nes OPEN#, CLOSE+#, PRINT#, 
INPUT#, acuden en ayuda del 
programador, por el momento no 
disponibles para esta unidad, aun- 
que según pudimos informarnos, 
la firma que lo distribuye está 
construyendo un EPRON al efecto. 

Si le parece interesante y decide 
reforzar su Spectrum, cuando pre- 
gunte precios no olvide especificar 
interface y unidad de discos. En el 
caso del Opus, la unidad son 
55.200 pesetas, más las 29.850 pe- 
setas del interface. 

Una caracteristica importante es 
la posibilidad de utilizar los co- 
mandos DOS desde el BASIC e in- 
corporarlos así, a nuestros progra- 
mas, mediante el uso de la instruc- 


ción RANDOMIZE: 


RANDOMIZE USR 15363 : REM 
: (Comando del DOS) 


así por ejemplo, si se desea cargar y 
ejecutar un programa llamado 
“disco” la instrucción LOAD 
“disco” pasaría a ser: 


RANDOMIZE USR 1536: REM: 
RUN “disco” 


únicamente ha de tener en cuenta 
que la instrucción que contenga un 
comando DOS ha de ser la última, 
dentro de una línea. 

Pero no sólo se puede acceder 
desde el BASIC. También desde 
código máquina es posible. Para 
ello se ha de alterar la variable del 
sistema CHADD, Veámoslo con 
un ejemplo: 


dirección código 

40000 24 REM 
40001 58 : 
40002 239 LOAD 


Led deprotección Motor movimiento 
de disco. п del di: 


ШЕ Conexión al 
г controlador. 
Cabeza lecfura y Circuitería control Led de referencia 1 то desplazamiento 
grabación. motores ycabeza y protector longitudinal de la cabeza 
bajo control de motor 


— paso a paso. с = 
40003 34 Ў 40008 112 p utilizando la dirección 40000, 
40004 101 e 40009 108 1 puede escribirse el código máquina 
40005 106 1 40010 111 о como sigue: 
40006 101 e 40011 34 ша : 

LD HL,CHADD) Siendo 
40007 109 m 40012 13 ENTER CHADD 23645 


LD (TEMP),HL Se guarda еп 
una posición 

LD (CHADD),40000 Se direc- 
ciona CHAAD a la 40000 

CALL 15363 Llamada al 

DOS 

LD НІ.(ТЕМР) 

LD (CHADD),HL Se devuel- 
ve su contenido inicial 

RET 


Finalmente, junto con el interfa- 
ce se acompaña un disco con los 
utility programs o programas de 
utilidad. En él hay cuatro progra- 
mas en BASIC que llama a otros 
cuatro programas en código má- 
quina: BACKUP, COPY, FOR- 
MAT, SCOPY. 

Format permite el formateo de 
discos, como ya vimos. Diversas 
modalidades de copias, tanto par- 
ciales de programas o archivos, 


como totales de disco a disco, se а 


realizan рог los tres programas res- 
tantes. 


Diseño asistidlc 
SPECTRUIVI 


ara muchos usuarios, las ma- 

áticas nantes, 

primero, por la facilidad con 

Mi que se resuelven problemas 
bastante complejos 

gundo lugar como herramienta 

que posee fuerza propia. Siempre y 

cuando no se alteren las reglas del 

juego se podrá conseguir el resulta- 


do más inesperado de un problema 
que parezca sencillo. (Como por 
ejemplo, los resultados de la mecá- 
nica cuántica y la relatividad, don- 
de las respuestas obtenidas a través 
del uso de las matemáticas se con- 
tradicen con el sentido común.) 
Hasta la llegada del micro, esta 
fascinación por las matemáticas 


era algo pasajero. Con demasiada 
frecuencia resolver un problema 
con papel y lápiz se hacía demasi: 
do difícil como para poder cont: 
nuar. Era como estar luchando 
contra un pulpo: te librabas de un 
brazo para caer en el siguiente. 
¿Pero, cómo nos ayudan los or- 
denadores? Hasta la computadora 


por... 


más barata está hecha para hacer 
operaciones matemáticas a unas 
velocidades muy superiores de lo 
que podemos imaginar. Miles de 
cálculos iterativos son llevados a 
cabo por una simple línea de pro- 
gramación en BASIC. Los progra- 
mas no sólo se hacen para efectuar 
dichos cálculos, sino que también 


pueden tomar decisiones “lógicas” 
acerca de qué método hay que se- 
guir para realizar dicha operación. 

En ninguna parte se notan estas 
ventajas tanto como en el campo 
de los gráficos generados por orde- 
nador. De todos modos, las de- 
mandas en cuanto a la potencia de 
la computadora, tanto en capaci- 
dad de almacenamiento como en 
velocidad, son enormes y por esto 
los programas de gráficos diseña- 
dos por computadora (CAD) han 
sido probados en ordenadores muy 
avanzados, normalmente máqui- 
nas con procesadores de 32 y 48 
bits, los cuales al trabajar en para- 
lelo los hacen ultrarrápidos. Estos 
programas en código máquina son 
asistidos por hardware especial 
para el rápido tratamiento de los 
números y procesamiento de la 
pantalla. 

Por lo tanto no es de extrañar la 
escasez de programas de gráficos 
para ordenadores cuya configura- 
ción sea de 8 bits que son la in- 
mensa mayoría de los ordenadores 
domésticos. Aunque el CAD pa- 
rezca estar más allá de las posibili- 


dades del micro, han sido diseña- 
dos varios programas didácticos a 
la vez que entretenidos. 


Planteamiento del proyecto 


El problema reside en la crea- 
ción de diversos contornos y som- 
bras mediante la aplicación de fun- 
ciones matemáticas en vez de 
“plotear” la pantalla: con puntos 
diversos. Con la elección de coor- 
denadas adecuadas, se podrán ha- 
cer girar determinadas figuras geo- 
métricas, trasladarlas o dibujarlas 


PROYECCION EN PERSPECTIVA 


VENTANA 
GRAFICA 

DEL SPECTRUM 
255x 175 pixels 


CENTRO DE 
LA PANTALLA 
x=0 
Y=0 
2-0 


PIRAMIDE 
DE VISION 


P[x,y,z,| 


SUELO 


(Y=-62plano) 


a escala sin la necesidad de trans- 
formaciones matriciales. 

La mejor forma de comprender- 
lo todo es a través de un programa 


que genera gráficos en 3 dimensio- 
nes. Para los genios matemáticos 
con experiencia en programación 
BASIC, entender el ejemplo será 
coser y cantar y para aquellos a los 
que no les interesan tanto las ma- 
temáticas y que quieran teclear el 
programa y pasárselo bien tienen 
un ejemplo para que comprueben 
los bonitos gráficos que se pueden 
hacer con el Spectrum. Habiendo 
llegado a ambos extremos del 
usuario típico, el resto está hecho 
desde el punto de vista de aquellos 
que deseen aprender, utilizar y de- 
sarrollar el concepto principal usa- 


do en el programa y sus ejemplos. 
Ahora entremos en los detalles del 
programa, una vez entendido 
pruebe con algunos ejemplos ex- 
puestos. 


Observando en perspectiva 


La proyección en perspectiva se 
puede introducir en la rutina 520, 
que es la que calcula la perspectiva 
del suelo. 

Hay una serie de datos que se 
asumen: 

1. El origen del sistema rectan- 


10 REM objetos en perspectiva ) 
60 SUE 440: 5ТОР 250 LET dy=F:XXSIN (PI/180%*(a+da 

30 PRINT АТ 21,13; "yv=-é2mn" AT ))-SIN (РІ/180жа)) 

11.26; "х=90тт";АТ 0,13; "y=62mm" 260 LET dz=RXSIN («Р1/180жЬ) ж (CO 
¡AT 11,0 -90пт" 8 (РІ/180ж (a+da))-COS (FI/180*ka) 

40 LET p=1.41 ) 

50 LET d=500 270 ТЕ х>2/5.6 THEN LET x=z/5. 

60 60 SUB 510 С] 

70 INPUT АТ 0,0: "Іпёеғѕессіоп 280 IF (x+dx)>z/5.6 THEN LET d 
de planos: м/һ";аф хта2/5.а-х 


80 IF аФ-"Һ" THEN GQ ТО 660 


290 ІР уг2/8.5 THEN LET у=2/8. 


(y+dy)>2/8.3 THEN LET а 


510 IF x<-z/S.é THEN (ЕТ х--г/ 


350 LET xp=x*d/2:2 
хржр+128, yp*p+87 


90 INFUT "Dist. del obj. еп mm 3 
š 120 500 IF 
100 INFUT "Radio obj. еп mm; у=2/8.5-у 
R= "3R 
110 INFUT "Funto central obj. (m 5.6 
320 1F 
"уо к "зуб 

"Num. de вес. vert.;s 
b= "¿sb 
140 INFUT "Num. lados de саса s 
ес.:вас "isa 
150 INFUT "Long. inicial en gra 360 PLOT 
d.¡bó= "¿b0 


(x+dx)<-2/5.6 THEN LET 


LET yp=y*d/z 


570 LET dk=d/ (2+d2)-d/z 


380 LET dx 


=dx*d/z+x*dk: LET dy 


«заба "sao p=dvkd/2+yX*xdk 
170 LET db О/-ь 390 LET e=ABS ((2-d)/200) 
180 LET da=360/sa 400 DRAW INK е:ахрЖр.аурЖр 
190 FOR Z360+b0 STEP db 410 NEXT a 
200 FOR 360+a0 STEP da 420 NEXT b 
210 LET (F1/180ka)xC05 430 60 TO 70 
440 FLOT 0,0 
(P1/180ka)+y0 450 DRAW 255,0 
(FI/180ka)xSIN 460 DRAW 0,175 
(FI/180kbD)+zO 470 DRAW -255,0 
240 LET ах=к*СО5$ (РІ/180жЬ) Ж(СО 480 DRAW 0,-175 
5 (PI/180k(a+da))-COS (PI/180ka) -490 BORDER 5 


gular de coordenadas es el ojo del 
observador. 

2. Todas las distancias se ex- 
presan en mm. (otras unidades se 


pueden especificar fácilmente, 
mientras se mantenga a lo largo del 
programa). 


3. Los milímetros son conver- 
tidos en pixels sólo en las líneas del 
programa donde haya PLOT y 
DRAW. 

4. El número de pixels/mm (p) 
para la ventana gráfica del Spec- 
trum en una TV de 12 pulgadas se 
asume igual a 1.41 
(255/180=1.41). Este valor nomi- 


nal es el que se utiliza a lo largo del 
programa. 

5. La pantalla de la TV se ten- 
drá que dibujar mediante la rutina 
450, y entonces habrá que medirla 
para poder teclear el valor real de 
la pantalla en mm. en la línea 50. 
Si su pantalla tiene alrededor de 12 
pulgadas entonces los valores de la 
línca 50 son los correctos, y la eje- 
cución del programa se podrá con- 
tinuar pulsando la tecla CONT. El 
centro de la pantalla está en 2-0, 
у=0 у z=d=500, 

6. El objeto se puede situar en 
cualquier parte de la zona determi- 


nada por la pirámide que se forma 
entre la distancia entre el tamaño 
de la pantalla y la formada por los 
ojos y la pantalla (d). Una pantalla 
grande y una distancia de la vista 
hacia ella demasiado corta, hará 
que la pirámide diverja rápida- 
mente. Las líneas 290 a la 360 cor- 
tan los objetos que van más allá de 
la pirámide de visión. 

7. La condición general que 
tiene que cumplir un punto para 
que esté entre los límites estableci- 
dos son: 

a)-z * w/d < =x <=z*w/d 
(donde w es la mitad de la anchura 


500 RETURN 


510 FOR z=d TO d+600 STEF 100 
520 БОК x=-90 ТО 90 STEP 22.5 
530 LET хракжа/: 

540 LET урз-ё2жа/2 


SSO.LET f=INT ( (2-0) /200) 

560 PLOT хржр+і28,уржр+87 

570 LET dk=d/ (2+70)-d/2 

580 DRAW INE f3xX*dkkp,-62Xdkkp 
590 FLOT хр*р+128,ур*р+87 

400 LET ахр=20ж4/= 

610 ТЕ х+22.5>90 THEN LET dxp= 
0 

620 DRAW 
630 NEXT x 
640 NEXT z 
650 RETURN 
660 INPUT 
pz0="; z0 
670 INFUT 
R= "Б 

680 IMFUT 


ІМЕ Я:дирЖр.0 


“Dist. del obj. еп тт 


"Radio obj. еп тт: 


"Punto central obj. (m 


"yQ = "уй‏ چ 
INFUT "Num. de secciones;sa‏ 700 
"isa :‏ = 
INPUT "Nun. lados de саба =‏ 710 
ес.рвһш "¡sb‏ 
INFUT "Long. inicial еп gra‏ 720 
d.¡b0= "БО‏ 
INFUT "Lat. inicial еп grad‏ 750 
граде "jad‏ 


740 LET db=260/sb 
750 LET da=340/sa 
760 FOR a=a0 ТО 3é60+a0 STEF da 
770 FOR b=b0 TO 360+b0 STEF db 
780 LET RXSIN (PI/180Xb)+x0 


790 LET y=RACOS 
(F1/180ka)+y0 
800 LET 2=RACOS (РІ/18ОЖЬ) ЖСО5 
(FI/180ka)+20 

810 LET dx=R¥ (SIN (FI/180x (b+db 
))-SIN (FI/180%Xb)) 

820 LET dy=RXSIN (РІ/1В0жа) ж (CO 
S (PI/180x(b+db)?-COS (PI/180Xb) 
) 

830 LET dz=RxXCOS (РІ/180жа) ж (CO 
S (FI/180k(b+db))-COS (РІ/і8ожЬ) 
) 

840 IF x>z/5.6 THEN LET x=z/5. 
6 

850 IF (x+dx)>2/5.6 THEN LET d 
x=2/D. bx 

860 IF y>2/8.3 THEN LET y==/8. 
5 

870 IF (y+dy)>2/8.3 THEN 
y=2/8B.3-y 

880 IF х<-2/5.6 THEN LET 
5.6 

890 IF -.atdx)<-2/3.6 THEN LET 
dx=-2/3.6-x 

900 IF yi-2/9 THEN LET y=-=/9 

910 IF (уғау)<-г/9 THEN LET dy 
ш-:/9-у 

920 LET хр=хжа/=: LET yp=y*d/z 

930 PLOT хрїр+128,ур*р+87 

940 LET dk=d/ (2+d2)-d/z 

950 LET dxp=dxX*xd/z2+xX*dk: 
p=dyxd/z+ykdk 

960 LET e=ABS 

970 DRAW 

980 NEXT b 

990 NEXT а 
1000 60 TO 70 


(Р1/180х5) #SIN 


RET 


kez £ 


ШЕТ dy 


((2-d)/200) 
INE esdxp*p.dypX*p 


dela pantalla еп milímetros), y 
b)—-z *h/d < =y < =z*h/d 
(donde h es la mitad de la altura de 
la pantalla en milimetros). 

Los valores en el programa (li- 
neas 290 a 360) se corresponden a 
la pirámide de visión de d=500 
mm y la ventana gráfica del Spec- 
trum en una TV de 12 pulgadas. 

8. La condición puesta en 
práctica para cortar determinados 
gráficos es un poco complicada de- 
bido a que se trabaja con dx y dy, 
que son valores que incrementan 
la x e y respectivamente, utilizados 
en las instrucciones DRAW. Esta 
instrucción en el Spectrum no es 
estándar en lo que se refiere a que 
sólo determina la dirección y lon- 
gitud de una línea mientras que el 
punto de partida viene expresado 
por la última instrucción PLOT o 
DRAW. Teniendo que situar antes 
de cada sentencia DRAW una ins- 


trucción PLOT que será la que ini- 
cialice el punto de partida. 

9. La proyección en perspecti- 
va de un punto P(x, y, z) en la pan- 
talla P(xp, xy) se basa en la rela- 
ción existente entre triángulos 
equivalentes, Odxp y Ozx, según 
se ve en la figura 1. 

Después de una simple manipu- 
lación: 

xp=x* d/z (1) 

ур=у*4/2(1) 

(la proyección xp e ур son inversa- 
mente proporcionales a la profun- 
didad de z.) 

La perspectiva queda demostra- 
da con la rutina utilizada en el pro- 
grama para generar el suelo. En la 


notación matemática esta repre- 
senta al plano de y=62 mm como 
se puede ver en el diagrama de la 
proyección en perspectiva. 

Viendo el programa línea а li- 
nea, tendremos lo siguiente: 

Líneas 530-540, definen el ta- 
maño del plano, por ejemplo, z 
(profundidad) entre 500 mm y 
1.100 mm y x (anchura) entre -90 
nîm y 90 mm. 

Líneas 550-560, son aplicacio- 
nes directas de las ecuaciones (1). 

Línea 580, proyecta xp e yp, ex- 
presado en pixels (multiplicado 
por p) y fija el origen de PLOT en 
el centro de la pantalla, (256 por 
175 pixels). 


Figura 6 
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Figura 7 
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Figura 5. 


CENTRO ОЕ 
PANTALLA 


CENTRO DEL О 2: 
ха, yO, 20 
û 
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OBJETO 


Н LONGITUD 
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Figura І. 
TRANSFORMACION DE UN PUNTO PIRAMIDE 
DE VISION 


Figura2 
PROYECCION DE UN VECTOR 


OBJETO 


Figura3. РІ 
PROYECCION DE PUNTOS INDIVIDUALES 


OBJETO 


Figura 4 
PROYECCION DE PROFUNDIDAD 
Y 


ў PS P2(z+ iz) 


Linea 590, define el factor de de- 
crecimiento de perspectiva dk, a la 
vez que z se va incrementando por 
dz = 70. Esto es necesario debido а 
que se tienen que reducir los valo- 
res de x e y a la vez que laz aumen- 
ta en profundidad, dz. 

Línea 600, contiene la primera 
instrucción DRAW que dibuja 
una línea correspondiente a la 
proyección del incremento de dz, 
después de aplicar el incremento 
dk. 

Linea 610 inicializa el vector 
DRAW a 580. 

Línea 620 convierte el incre- 
mento de x (dx=20) a su proyec- 
ción, dxp. 

Línea 640 contiene la segunda 
instrucción DRAW y dibuja la 
proyección correspondiente al in- 
cremento dx=20. 

Las secciones del suelo se obtu- 
vieron a través de la aplicación di- 
recta de la ecuación (1) y la senten- 
cia PLOT. La sentencia DRAW se 
utiliza para dibujar las proyeccio- 
nes de los incrementos de dz y dy, 
que son vectores ya que no sólo 
tienen un valor sino que también 
poseen una dirección en el espa- 
cio. En realidad no sería difícil 


PARAMETROS PARA EL PROGRAMA DE 3D 


proyectar cualquier tipo de marco 
de cualquier plano. Por ejemplo, el 
plano х-90 se puede formar susti- 
tuyendo la`y por x en el siguiente 
programa: 


520 REM Plano de la pared dere- 
cha, x=90 

540 FOR y=-62 TO 62 STEP 12 
550 LET yp=1 * d/z 

560 LET xp=90 * d/z 


600 DRAW INK f; 90 * dk * p, y * 
dk*p 


620 LET dyp=8* d/z 

630 IF y + 12 > 62 THEN LET 
dyp=0 

640 DRAW ІМКЕО, dyp * p 

650 NEXT y 

660 NEXT 2 


De la misma forma, el plano z = 
1100 se puede dibujar con cl pro- 
grama siguiente: 


520 REM Pared del fondo 
525 LETz=1100 
530 FOR y=-62 TO 62 STEP 12 


560 LET yp=y* d/z 


590 LET dyp=12*d/z 
595 IF y+ 12 > 62 THEN LET 
dyp=0 
600 DRAW INK f; 0, dyp* p 
650 NEXT x 
660 NEXT y 

Como alternativa, los tres pla- 


nos se pueden combinar hacia la 
esquina inferior derecha de la ha- 
bitación por mediación de un pro- 
grama con los tres ejemplos como 
subrutinas. 

Se podrá visualizar lateralmente 
una casa con tres pisos, desde el 
plano original, у --62, añadiendo 
las líneas siguientes: 


517 REM Tres pisos 
520 FOR y=-62 TO 62 STEP 50 


560 LET ур=у* d/z 


600 DRAW INK f; x * dk * p, y * 
dk*p 


665 NEXT y 

La analogía se puede llevar más 
lejos, por ejemplo, dibujar un pla- 
no orientado hacia cualquier parte 
y en combinación con varios pla- 
nos, se podrían generar cajas en el 
espacio. Es obvio que el programa 
podría resultar demasiado comple- 
jo. 

Basado en la experiencia hasta el 
momento, la rutina que dibuja el 
plano se recomienda en los si- 
guientes casos: 

1. Pared o suelo único. 

2. Paredes o suelos paralelos 
múltiples. 

3. Planos paralelos simples o 
múltiples planos paralelos de los 
que exponemos un ejemplo a con- 
tinuación: 

520 REM techo y =+ 40 
530 FOR z=d TO d + 600 STEP 
100 


Lampara Ventana enla pared Esquina entre... 
LaPared — LaPared Рай Pared Pared 
ишу dchay trasera iday dcha. y 
Trasera Derecha Izquierda | trasera trasera ytecho techo techo 
20 900 900 1100 800 600 1100 1100 1100 800 800 
R 15 3.5 25 25 30 62 62 90 300 300 
х0 0 0 0 90 -90 -90 90 0 -90 90 
у0 40 58.5 0 0 0 0 0 62 62 
sb $ 1 іі 1 1 1 1 1 1 
sa 8 2 4 4 4 2 2 2 2 
b0 45 0 0 90 90 0 0 0 90 
a0 0 90 45 45 45 90 90 0 0 
* (67445) 


540 FOR x = - 90 ТО 90 STEP 
22.5 
555 LET y=40 + 10 * SIN (x / 10) 


600 DRAW INK f; x * dk * p, y * 
di*p 


625 LET dy = 10 * SIN ((x +20) / 
10)-SIN (x / 10) 
628 LET dyp = dy * d/z 


635 IF y + dy > 62 THEN LET 
dyp=0 


640 DRAW INK f; dxp * p, dyp * 
p 


Ahora veremos las coordenadas 
esféricas elegidas para crear una 
diversa variedad de objetos simé- 
tricos en 3D y también para ejecu- 
tar transformaciones simples (es- 
calas, rotación y traslación). Las 
rutinas se utilizan en el programa 
principal y el sistema de coordena- 
das se puede observar en la Figura 
2 

La generación de los objetos tie- 
ne lugar a partir de la línea 90 con 
una serie de instrucciones IN- 
PUTs, con los parámetros que dé 
el observador. Los parámetros que 
se piden en el programa son: 


— el número de secciones verti- 
cales, sb 

— el número de lados en cada 
sección, sa 

— la longitud de comienzo, esto 
es, la longitud de la primera sec- 
ción vertical, b0 

— la latitud de comienzo, es de- 


cir, la latitud del origen del vector 
DRAW que representa el primer 
lado del polígono, a0. 

Esto se puede comprobar en la 
figura 3, donde sb=3, sa=4, b0=0 y 
а0-45 (los valores de a0 y bO vie- 
nen en grados). 

La figura 3 generará 3 secciones 
verticales (a0, 120 y 240 grados) 
cada sección se representa median- 
te una figura cuadrada orientada 
de manera que tenga dos lados ho- 
rizontales y dos verticales. Si hu- 
biera que hacer a igual a 0, se pro- 
ducirán cuadrados con lados dis- 
puestos a 45 grados con la horizon- 
tal (figura 4). 

El tamaño del objeto obviamen- 
te viene determinado por R (en la 
línea 100) y el tamaño aparente 
utilizando la perspectiva también 
dependerá de la distancia del obje- 
to desde el punto de observación, 
70 (línea 90). Variar el valor de 20, 
equivale a la función de “zoom” 
en una cámara Че fotos 
traslación en profundidad. La tras- 
lación en el eje x y en el y se consi- 
guen variando x0 e yO, respectiva- 
mente (el centro de la pantalla se 
encuentra en x0=0 e y0=0). 

A continuación comentaremos 
la función de las líneas del progra- 
ma dedicando especial atención a 
la parte que hace referencia a las 
coordenadas esféricas. 

Las líneas 170-180 convierten 
un número elegido, sb y sa, en in- 
crementos angulares en grados, db 
y da, utilizados en los bucles FOR- 
NEXT de las líneas 190-200. 

Las líneas 210-270, convierten 
la coordenada esférica R, a y b en 
coordenadas rectangulares x e y (y 
sus incrementos dx, dy y dz), de 


forma que el objeto se pueda dibu- 
jar en perspectiva de la misma ma- 
nera que las rutinas que dibujan el 
plano. 

Las líneas 220-240, son ecuacio- 
nes estándar que convierten coor- 
denadas esféricas en coordenadas 
rectangulares y se derivan de la fi- 
gura 2 utilizando trigonometría. 
Observe que todos los ángulos en 
las sentencias SIN y COS se han 
convertido a radianes (PI/180 * 
ángulo en grados). 

Las líneas 250-270, calculan el 
incremento cartesiano (vectores) 
dx, dy y dz, correspondiente al in- 
cremento de latitud, da. (Esto es un 
buen ejemplo de cómo un ordena- 
dor personal puede hacer cálculos 
de alto nivel, aunque no sea tan rá- 
pido como las máquinas dedicadas 
a hacer CAD). Observe que todos 
los resultados se expresan en mili- 
metros. 

Las líneas 280-360, evitan que la 
figura se corte fuera de la pirámide 
de visión y los límites se corres- 
ponden a d=500 mm y el tamaño 
de la «ventana» del Spectrum me- 
dido en una televisión con una 
pantalla de 12 pulgadas. 

La línea 370 es la ecuación es- 
tándar de la perspectiva (ecuación 
1) utilizada en la consiguiente sen- 
tencia PLOT de la línea 380. Ob- 
serve que los milímetros se con- 
vierten en pixels en la línea 380. 

La expresión en la instrucción 
380 ya se mencionó en la rutina 
que dibuja el suelo; dk representa 
el decremento del factor de la esca- 
la (d/z) cuando varía la profundi- 
dad por dz. La línea 390 es algo 
más complicada de lo visto hasta el 
momento. 
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VERTICAL(V) 


BANCO 


MESA 
REDONDA 
Alfombra/ 
Estanterias sombra Mesa plana 


HORIZONTAL (H) 


(н) 


Algunos ejemplos de las figuras que se pueden crear con este programa, y que pueden modificarse con una pequeña traslación (R = В, „). 


Algunos ejemplos de las figuras que se pueden crear con este programa, y 


Vamos a detenernos un poco 
para comentar la importancia de 
dos elementos diferentes que com- 
binados forman la variable dxp: 

— dx * d/z es el componente de 
la perspectiva debido a un incre- 
mento en el vector, dx. 

— x * dk es el componente de la 
perspectiva debido al vector, dz 

De la misma forma se pueden 
explicar los componentes de la va- 
riable dyp. 

La línea 400 dibuja la proyec- 
ción en perspectiva de un vector 
en función de dx, dy y dz, medido 
en pixels. Las líneas 410 y 420 
completan el bucle FOR-NEXT 
que calcula la latitud y longitud. 
La línea 430 es una bifurcación in- 
condicional que manda el progra- 
ma a la rutina principal y pide los 
datos del siguiente objeto a dibu- 
jar. 

Seguido a la explicación de 
cómo son generados los objetos, 
explicaremos algunos parámetros 
y sus efectos: 

1. Selecciona el tipo de figura 
utilizando la variable sa. 


Cuando el valor de “sa” sea su- 
perior a 15, se encontrará dibujan- 
do un círculo en el espacio. 

2. Determina la orientación de 
la figura con la latitud inicial, ад, 
en grados. 

a) а0-0; se dibuja el comienzo y 
el final de la figura en el ecuador. 

b) а0-45; se dibuja el comienzo 
y el final de la figura en la latitud 
de 45 grados. 

3. Selecciona el número de fi- 
guras verticales (secciones), sb, co- 
menzando еп la longitud b0, don- 
de; 

a) bo=0; dibuja el primer y últi- 
mo plano de la figura en el plano 
2-9, esto es, paralelo a la pantalla. 

b) b0=90; sitúa la figura en el 
plano de x=x0, esto es, en la esqui- 
na de la pantalla. 

Esto permite dibujar figuras des- 
de un haz de planos verticales — 
donde la intersección de los planos 
se sitúa en las coordenadas, хО у 
70. 

El programa se puede modificar 
con facilidad para que dibuje una 
serie de haces de planos con una 
intersección horizontal cambiando 
la longitud por la latitud y vicever- 
sa. Se han incluido unos ejemplos 
de parámetros que se piden en las 
sentencias INPUT que puede ser 
efectivo en combinación con la 
traslación y rotación. 

Recuerde que todas las dimen- 
siones están en milímetros y se di- 
bujarán con exactitud en perspec- 
tiva dentro de las coordenadas de 
la pirámide de visión. Esto signifi- 


hará que la parte frontal de los ob- 
jetos se encuentren en frente de la 
pantalla y que la parte superior e 
inferior del objeto tienda a cortar- 
se. 
La traslación (a lo largo del eje x, 
por ejemplo) se puede demostrar 
con efectividad añadiendo un bu- 
cle para z0 en el programa de la 
manera siguiente: 
90 REM Ejemplo de ZOOM 


185 LET z0=500 


440 LET z0= 20 + 100; IF 20 > 
1100 THEN GO TO 90 
443 GO TO 190 


Lo mismo se puede hacer para la 
traslación por los ejes x e y. 

Para combinar la rotación alre- 
dedor del eje vertical (longitud) 
con la traslación (en el eje x) se 
puede proceder de la forma si- 
guiente: 


110 REM Combinación de trasla- 
cion/rotacion 


185 LET х0--45 
188 LET b0=b0 + 10: REM Rota- 
сіоп de 10 grados 


440 LET x0= x0 + 22.5: IF х0 > 
45 THEN GO ТО 90 
443 GOTO 188 


Transformación de 
perspectivas: proyecciones 
de los puntos 


a) 1; dibuja un punto. ca que el valor de R tendrá que ser 
b) s: dibuja una línea. menor o igual que 62 para aquellos xp / d = x / 2 
; dibuja un triángulo. objetos que se encuentren еп xp = x * d / 2 .......... (la) 
libuja un cuadrado. z0=500. х/2 саў? d 
; dibuja un pentágono. Observe que seleccionar 20-500 x <= z “ў /4 .......... (2a) 
BANCO MESA 
REDONDA 
Parte superior 
700 700! 500 
200 200 10 
-90 -70 -80 
Баб ае ES 
1 1 l 
2 2 2; 
90 90 0 
0 0 0 
VERTICAL (V) HORIZONTAL (Н) (н) 


Vale la pena intentarlo. 


que pueden modificarse con una pequeña traslación (R = Riy). 


yb / d = y / z 
may Иа (la) 
у^ <a hy Q 
V <a SO СО (2а) 


La transformación de los puntos 
(figura 1) se deriva de triángulos 
equivalentes, Odxp y Ozx, para x; 
esto también se puede comprobar 
para y. Esta transformación se uti- 
liza para “plotear” puntos con las 
sentencias PLOT. La pirámide de 
observación determina el espacio 
en 3D еп la parte anterior y poste- 
rior de la pantalla que se puede 
utilizar sin problemas de cortar el 
objeto (ecuación 2a). 


Proyección de vectores 


dxp=dx*d/z+x*dk 
dyp=dy*d/z+y*dk 


La combinación total de la 
proyección de vectores se puede 
observar en la figura 5. 

La transformación de vectores se 


utiliza con la sentencia DRAW del 
Spectrum para poder dibujar las 
proyecciones de los incrementos 
(vectores) dx, dy y dz. 

1. La proyección de dx y dy se 
derivan de la misma manera que 
con la proyección de puntos aisla- 
dos (ver figura 6). 
dxp=dx*d/z 
dyp=dy*d/z 

2. La proyección de dz se deri- 
va vía dk. dk se define como el de- 
cremento del factor de la perspec- 
tiva (k = d / z) debido a sólo un in- 
cremento de z por dz. 


dk=(d / (z + dz)) - dz 


Refiriéndonos a la figura 7 y 
aplicando la transformación están- 
dar del punto aislado (ver ecuación 
Та) para los puntos РІ(х1, y1, 2) y 
P2(x1, yl, z + dz), podremos dedu- 
cirlo siguiente: 


xpl=x1*d/z,xp2=x1*d/(z2+ 


dz) i 
ypl=yl*d/z,yp2=yl*d/(z+ 
N дана КЛОН О (ба) 


Сото, «хр = хр2-хрі 

=x1 *d/ (z + dz) - 
x1*d/z 

=x1*(d / (z+dz)-d 


por ejemplo, dxp (en función de 
dz solamente) = x * dk 

dyp (en función de dz solamente) = 
(Та). 


Los efectos combinados de los 
tres incrementos, dx, dy y dz, es 
como consecuencia de ello la suma 
de todos los componentes de la 
proyección (ver ecuaciones 3a y la 
figura 5). Las ecuaciones se expo- 
nen de nuevo por conveniencia: 


Eltotal de: 
dxp=dx * d/z+x * dk 
dyp=dy * d/z + y * dk 


debido debido 
айхо adz 
ady solamente 
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En el número 1 de 
TODOSPECTRUM, у con 
el título “64 caracteres”, 
ofrecíamos un pequeño 
editor de textos cuya 
principal característica era 
trabajar con 64 caracteres 
por línea. Si le agradó la idea 


y la resolución de su pantalla 
le permite trabajar 
cómodamente con 64 
caracteres, le ofrecemos 
ahora la rutina 

que lo hace 

posible y que podrá 
incorporar a sus programas. 


ШИ ЩИ 


анна НЯ 


па aproximación al рго- 
blema nos da las dos solu- 
ciones posibles: cambiar 
completamente la circuite- 
ría de video, o redefinir el 
ancho de los caracteres a la mitad 
del estándar. La primera es prácti- 
camente inalcanzable para el afi- 
cionado medio, aunque 'actual- 
mente existe una firma comercial 
inglesa desarrollando una tarjeta 
de 80 columnas en un sistema de 
expansión para el Spectrum. La se- 
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TUHBNGYTFCADRESCAUHSACDERF 
KENHYUJNKIOLPOITNBHUYGUCFR 
FREDCASUURCASHEDCYFRTGENHY 
IVNRILOPLAANNYV RAF COERSAF 
MOJNBHUGUCFTRDAZANSESDACFY 
IRIUPLRIJIURBGYTECOREZANSA 
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gunda solución no nos da un juego 
de caracteres perfectamente for- 
mado, o el formato más deseable 
de 80 columnas, pero es barata y 
sencilla de poner en funciona- 
miento. 

La solución final fue una rutina 
en código máquina que imprime 
texto a razón de 64 caracteres por 
línea. Ya que no es posible cam- 
biar la resolución estándar de 256 
pixels (elementos de pantalla) ho- 
rizontales, tenemos que dividirlos 
en grupos de 4 para conseguir las 
64 columnas deseadas. Estos 4 ele- 
mentos de pantalla deben incluir 


la separación entre caracteres, por 
lo que sólo nos restan 3 pixels para 
definir cada caracter. Es posible 
que los caracteres no estén perfec- 
tamenie formados, pero son sufi- 
cientemente legibles. Una nota so- 
bre este tenia: debido a que la reso- 
lución no se cambia. el ancho de 
banda de la señal de video no esin- 
crementado como se podría pen- 
sar, por lo que el televisor normal 


nos servirá como pantalla en este 
modo de visualización al igual que 
con el formato de 32 columnas. 
Sin embargo si se usa un monitor 
con entrada de video en lugar del 
televisor, se conseguirá un incre- 
mento notable en legibilidad y de- 
finición en cualquier tipo de pan- 
talla (texto, dibujos, etc.) generada 
por el ordenador, El problema es 
que el Spectrum no dispone de sa- 


FRINT LD ЕС, (XFOS) 
57 LD A,B 
84 SUB в 
85 (р в.а 
ве LD (X),BC 
140 LD HL, CARSET 
145 LD А, (САК) 
150 LD E,ñ 
160 РЕС Е 
170 LD 0:0, 
180 SLA E 
190 JR NC, L1 
200 ING D 
210 11 SLA E 
220 JR NC,L2 
230 INC D 
240 L2 SLA E 
230 JR NC, L3 
260 INC D 
270 L3 ADD HL,DE 
225575 280 LD (DIRCAR) „ HL 
0608 290 LD B,8 
ОЕОО 295 LD бо 
CS ЗОО 18201 FUSH BC 
203575 310 LD HL, (DIRCAR) 
48 320 LD C.B 
0600 330 LD E, O 
OR DEC ВС 
09 ADD HL,BC 
LD BC, (X) 
ЖЕ LD A, (HL) 
СВ?Ғ БІТ 7,А 
2005 JR NZ,P1 
CDF675 CALL BORRA 


lida de video estándar. Unicamen- 
te disponemos de video directo en 
el bus de conexiones de la parte 
trasera del ordenador. Esta señal 
no es estándar en su amplitud y 
tampoco lo es la impedancia de sa- 
lida del circuito generador de vi- 
deo. La solución es intercalar un 
buffer o amplificador entre la má- 
quina y el monitor. Este puede ser 
un simple transistor NPN en con- 
figuración de seguidor de emisor 
(base directamente a la salida, emi- 
sor a masa a través de una resisten- 
cia de unos 3 K, y colector directa- 
mente a cualquier punto de ali- 
mentación) con un ancho de banda 
suficiente (10-20 Mhz.). Aquellos 
que hayan manejado un soldador 
alguna vez no tendrán ningún pro- 
blema. 

Volviendo al problema del soft- 
ware, se precisó que sería necesario 
un programa en lenguaje máquina 
para realizar la impresión de ca- 
racteres a una velocidad razona- 
blemente alta y para poder llamar 
la rutina desde el sistema operati- 
vo del Spectrum. Se escribió una 
rutina de impresión que imprime 
caracteres en cualquier punto de la 
pantalla. Se diseñó un nuevo juego 
de caracteres, pero algunos fueron 
prácticamente imposibles de defi- 
nir debido al ancho permitido. 
Afortunadamente estos caracteres 
son irrelevantes, como el símbolo 
de “copyright”. Por lo que se susti- 
tuyen por caracteres del castellano 
no presentes en el juego estándar 
del Spectrum. 

Se programó una segunda rutina 
que aceptase el código de un carac- 
ter en el acumulador de la máqui- 
na y llamase a la rutina de impre- 
sión para imprimirlo en pantalla. 
Esta subrutina actualiza automáti- 
camente la posición de impresión 
incrementándola en 4 pixels hori- 
zontales u 8 verticales (si se alcan- 
za el final de la linea), cada vez que 
se imprime un caracter. La rutina 
norealiza scrolling al llegar a la úl- 
tima línea, aunque no se descarta 
esta posibilidad en un futura am- 
pliación del programa. El código 


de caracter de “AT” (CHR$ 22) 
hace que la rutina tome los dos si- 
guientes caracteres que reciba en el 
registro А como dos números que 
determinan: las coordenadas del 
elemento de pantalla donde se im- 
primirá el próximo caracter (em- 
pezando por la esquina superior 


7579 1803 410 
7575 CDE475 420 Рі 
757E 03 430 сі 
757Е СВ77 440 
7581 2005 45 
7583 CDF675 460 
7585 1803 470 
7588 480 P2 
7586 490 С? 
758С СЕБЕ 500 
758Е 2005 510 
7590 CDF675 520 
7593 1805 5з 
7595 CDE475 540 РЗ 
7598 03 550 cs 
7599 CRB67 560 
7598 2005 570 
759D CDF675 580 
7580 1803 590 
7582 CDE475 600 P4 
7585 оз 610 са 
7586 СЕ5Е 620 
7588 2005 630 
75АА CDF675 640 
75AD 1803 650 
75AF CDE475 660 FS 
73B2 оз 670 с5 
7563 СВ57 680 
7565 2005 670 
7587 CDF675 700 
75ВА 1803 710 
75BC CDE475 720 Pó 
75BF 03 20 Có 
75СО CB4F 740 
75C2 2005 750 
75C4 CDF675 760 
75C7 1803 770 
7509 СрЕ475 780 Р7 
75СС оз 790 07 
75CD CB47 8oo 
75СЕ 2005 B10 
75D1 CDF675 820 
7504 1803 830 
75рь СрЕ475 840 РВ 


izquierda). ЕІ caracter ENTER 
(CHRS 13) es ignorado, y cual- 
quier otro que no esté en el rango 
32-127 dará impresiones sin senti- 
do, ya que la rutina tomará como 
modelo de caracter una zona de 
memoria donde no existe tal. 

Esta rutina fue escrita teniendo 


ак Сі 
CALL PINTA 
INC EC 
BIT а.а 
JR NZ,F2 
CALL BORRA 
ПЕЕВ 
CALL PINTA 
INC ВС 
ВІТ 5,9 
JR  М2, РЗ 
CALL BORRA 
JR ES 
CALL FINTA 
INC ВС 
BIT 4,A 
JR NZ,P4 
CALL BORRA 
JR: Са 
CALL FINTA 
INC EC 
ВІТ 2,8 
JR NZ,FS 
CALL BORRA 
JR E5 
CALL FINTA 
INC EC 
вт Sa 
JR NZ,PF6 
CALL BORRA 
JR Сё 
CALL PINTA 
INC BC 
ВІТ 1,4 
JR М2, Р? 
CALL BORRA 
аер; 
CALL PINTA 
INC EC 
ВІТ 0,4 
JR NZ,P8 
CALL BORRA 
JR св 
CALL PINTA 


У 
Como programar W ` 
aventuras 


en cuenta la posibilidad de ser lla- 
mado desde el sistema operativo 
del Spectrum. La rutina de impre- 
sión de un caracter (RST 16) еп la 
ROM del ordenador puede ser for- 
zada a llamar nuestra subrutina in- 
troduciendo su dirección de co- 
mienzo en 2 bytes del área de in- 
formación de canales, de forma 
que cada vez que se ejecute una 
sentencia PRINT desde el BASIC 
el mensaje será impreso en panta- 
lla en el formato de 64 columnas. 
Por desgracia estos dos bytes son 
renovados cada vez que se realiza 
un listado de programa, ya sea me- 
diante el comando oportuno o 
apretando la tecla ENTER. Esto es 
debido a que la rutina de listado 
envía a la de impresión los códigos 
de las palabras claves (Tokens) di- 
rectamente sin decodificador, ta- 
rea que ha de realizar esta última. 
Si utilizásemos este sistema, sería 
necesario renovar la dirección 
cada vez que se fuera a imprimir 
algo. Sin embargo la rutina 
LPRINT posee la misma facilidad, 
con la diferencia de que los bytes 
que contienen la dirección de lla- 
mada a la rutina no son cambiados 
una vez alterados. Esto nos permi- 
te usar el comando LPRINT para 
usar nuestra rutina desde el BA- 
SIC. Una subrutina que es llamada 
en primer lugar, almacena la direc- 
ción apropiada en los bytes que 
contienen la información del canal 
de impresora (correspondientes al 
valor contenido en la variable del 
sistema CHANS + 15). El formato 
de una instrucción LPRINT para 
nuestros propósitos será: 


LPRINT AT ху: “(texto a impri- 
mir)” 

Donde x e y son las coordenadas 
del pixel allí donde se quiere co- 
menzar la impresión. Si se omite 
esto, el texto será impreso después 
del último caracter enviado a la ru- 
tina o en la posición 0,175 si la ru- 
tina es llamada por primera vez. 

Este sistema no deja a la impre- 
sora ZX totalmente fuera de uso, 
ya que puede ser usada restauran- 


do los valores originales en 
CHANS +15 y CHANS +16. Estos 
son los bytes 244 y 9. Es decir. 
cada vez que queramos usar la im- 
presora bastará con “pokear” en 
CHANS +15 el valor 244, y en 
CHANS +16 el valor 9. De esta 
forma el canal LPRINT queda di- 
reccionado a la rutina existente en 


7909 203375 850 св 
75DC 30 860 
75рр 323375 870 
75ЕО Сі 880 
75Е1 1081 B90 
EC? 900 
LES: 910 FINTA 
75Е5 C5 915 
75Е6 549150 920 
75Е9 Св87 925 
75ЕВ CE97 920 
7SED 329150 955 PLOT 
75F0 CDDF22 940 
75F3 Сі 945 
75F4 F1 950 
7585 09 955 
75F6 FS 960 BORRA 
7567 CS 965 
75F8. 28915 970 
75ЕВ СВ87 975 
75FD CED7 980 
7SFF СЗЕр75 985 
7602 00 1110 AT 
780% оо 1120 АСЕМТО 
7804 FElé 1130 USER 
7606 2006 1140 
7608 210276 1150 
760B 3601 1160 
760D С? 1170 
760E 47 1180 El 
760F 210276 1190 
7612 7E 1200 
7615 ЕЕО1 1210 
7615; 2007 1220 
7617 3602 12730 
7619 213075 1240 
7610 70. 1250 
1260 ` 
1279 E2 
1280 
O 1290 
7924 21317: 1300 
7627 70. 1310 


la ROM. Para volver a usar nues- 
tra rutina habrá que volver a lla- 
mar la subrutina de inicialización 
explicada anteriormente. También 
es posible imprimir con la impre- 
sora a 64 columnas efectuando el 
mismo proceso pero manteniendo 
el texto a imprimir en pantalla, de 
forma que podamos realizar un 


| 


| 


“COPY” una vez direccionada la 
impresora. 

El nuevo juego de caracteres de- 
finido admite las letras del caste- 
llano “а”, “0°, у “17; así como 
acentos еп todas las vocales. Los 
cuatro simbolos sustituyen a los 
caracteres hash (código 35), am- 
persand (código 38). at (código 


7628 С9 1320 
7629 78. 1330 ЕЗ 
7828 FEOD 1340 
762C 2001 1350 
762E C? 1360 
762Е FE27 1370 E4 
7631 2006 1380 
7655 210376 1390 
7636 3601 1400 
7638 С9 1410 
7639 47 1420 ES 
763A 210376 1420 
“ӨШ 7E 0 1440 
763E FEOL 1450 
7640 2026 1460 
7642 78 1470 
7643 Сасо 1480 
7645 3003 1490 
7647 78 1500 
7648 1802 |1510 
764A DEÒ 1520 E7 
7640 SF 1520 ЕВ 
764D 1600 1540 
76А4Ғ CB2Z 1550 
7651 2001 1560 
7653 14 1570 | 
7654 сваз 1580 Е9 
7656 3001 1590 
7658 14 1600 
7659 CB23 21610 Е10 
7656 3001 1620 
765D 14 1670 
765E 210076 1640 Е11 
7661 19 

7562 ES 

7563 3620 

7665 Р ЕИ 

7566 5640 

7568 78 

7669 COCO 

ZébE 3004 

7660 78 ` 

766E sC 


64), y barra vertical (código 124); 
de forma que podemos obtener es- 
tos nuevos caracteres incluyendo 
los correspondientes que susti- 
tuyen en la sentencia LPRINT que 
ejecutemos. El acento se obtiene 
tecleando el “apóstrofo” (código 
39) antes de la vocal deseada. Una 
vez ejecutada la sentencia aparece- 


rá la vocal correspondiente acen- 
tuada. Un ejemplo de esto puede 
ser esta sentencia: 


LPRINT “Elarbol” 
Que dará como resultado: 
El árbol 


en la pantalla del ordenador. 

El programa completo ocupa al- 
rededor de 1K de memoria. El lis- 
tado se ha dado en ensamblador, 
de forma que aquellos que dispon- 
gan de esta herramienta puedan 
introducir la rutina cómodamente. 
Para los más modestos se da el en- 
samblado en hexadecimal en el la- 
teral izquierdo del propio listado. 
Este ensamblado ha sido realizado 
en la dirección de memoria 30000, 
por lo que al cargarse el código ha- 
brá de hacerse estrictamente a par- 
tir de esta dirección, ya que la ruti- 
na no es relocalizable, Un sencillo 
cargador hexadecimal bastará para 
la tarea. Se adjunta también una 
tabla de números en decimal que 
constituyen el nuevo juego de ca- 
racteres. Esta tabla deberá introdu- 
cirse en memoria a partir de la eti- 
queta del listado, del ensamblador 
“CARSET”. Se puede introducir 
en el propio ensamblador con un 
pseudonemónico del tipo DEFB 
(Define Byte), o bien directamente 
en memoria a partir de la direc- 
ción indicada por la etiqueta suso- 
dicha. Los que utilicen ensambla- 
dor podrán, por supuesto, ensam- 
blar el código en la dirección de 
memoria que deseen, cuidando 
siempre de que esté por encima del 
КАМТОР. Para los que introduz- 
can el ensamblado directamente 
en la dirección 30000, CARSET se 
halla en la 30400. CHANEL es la 
subrutina que hay que llamar para 
incializar el canal de LPRINT, y 
se halla en la dirección 30386. Es 
decir, cada vez que se cargue el 
programa hay que ejecutar la sen- 
tencia: 


RANDOMIZE USR 30386 


Y la rutina queda preparada 
para usarse desde BASIC. USER es 


la rutina que recibe el código del 
caracter en el acumulador, y que es 
llamada por el sistema operativo. 
Este se halla en la 30212. Aquellos 
que lo deseen pueden llamar la ru- 
tina desde otro programa en códi- 
go máquina haciendo un CALL 
30212 (o la dirección pertinente si 
se ensambla en otra zona), habien- 
do cargado previamente el registro 
A con el código del caracter a im- 
primir. 

El funcionamiento del programa 
a grandes rasgos es como sigue: la 
rutina USER recibe en el acumu- 
lador el código del caracter a im- 
ргітіг. En primer lugar lo compa- 
ra con el código AT (22), Si es éste, 
retorna el control al programa de 
llamada, fijando previamente una 
“bandera” o flag que le indica que 
el próximo código es una coorde- 
nada de impresión y no un carac- 
ter. Posteriormente compara con 
el código 13 (ENTER), realizando 
un simple retorno si se trata de 
éste. Por último compara con 29 
(apóstrofo). Si se ha enviado un 
apóstrofo el programa entiende 
que se quiere acentuar la próxima 
letra, y por lo tanto fija una “ban- 
dera” de control (ACENTO) que 
se lo indicará en la próxima llama- 
da. Al recibir el siguiente caracter, 
modifica el modelo de éste (hallan- 
do previamente su dirección en el 
juego de caracteres) de forma que 
incluya el acento. Por último Па- 
ma a la rutina de impresión de un 
caracter (PRINT) pasándole los 
parámetros de código del carácter 
y posición de impresión. Si la últi- 
ma letra fue acentuada, remodifica 
el modelo de su caracter. Antes de 
devolver el control al programa de 
llamada actualiza la posición de 
impresión, incrementándola hori- 
zontalmente en 4 pixels o vertical- 
mente en 8, según corresponda. La 
rutina de impresión al ser llamada, 
calcula la dirección del caracter a 
imprimir en el juego de caracteres. 
Después toma éste como modelo y 
entra en un bucle (LAZO1) de 8 
iteraciones en el que cada byte del 
caracter es explorado bit por bit, 


llamándose a las rutinas BORRA o 
PINTA según el bit valga І о 0. 
Las rutinas BORRA y PINTA lla- 
man a la rutina PLOT de la ROM 
con distintos parámetros INVER- 
SE y OVER para que borre o pinte 
un punto según el caso. Una vez 
terminado el bucle, el caracter ya 
está impreso en la pantalla, y por 


lo tanto se devuelve el control a 
USER. 

Y esto es todo, una sencilla ruti- 
na con la que puede dar un toque 
profesional a sus programas en 
BASIC si se usa para imprimir 
mensajes, o para soportar la salida 
en código máquina. 

Javier Cancela 


766F 1802 1750 JR E13 
7671 БӨПЕ 1760 El2 SUB 225 
7673 323475 270 y LD (САК),А 
7576 с5 1780 FUSH EC 
7677 С02775 1790 CALL FRINT 
767A 3A307535 1800 LD A, (XFOS) 
7670 C604 1810 ADD 4,4 
767F 3805 1820 JR С,Е14 
7681 525075 1830 LD (ХРО5),А 
7684 1840 E 22 
7686 3 1850 El4 LD А, (YFOS) 
7689 1860 SUB 8 
76BB 3 1870 LD (YP0S), A 
768E 1880 EDI 9) 
7690 : 1890 LD (XPOS), A 
7693 1900 Еі5 LD А, (ACENTO) 
7696 1910 FOP BC 
7697 1920 Ed 
7699 2016 1930 JR NZ,E16 
769В El 1940 POP HL 
7690 78 і950 LD. A,B 
769D ЕЕ&9 1960 CE IOS 
769F 2004 1970 JR NZ,E17 
7681 3E40 1980 LD 0,04 
7643 1802 1990 JR El8 
7685 ЗЕОО 2000 Е17 LD 8,0 
7887 3600 2010 E18 LD (HL), O 
7689 23 2020 INC HL 
76AA 77 2070 LD (HL), A 
76AB 00 2040 NOF 
76AC 2050 LD 6, 0 
76AE 320376 2060 LD (ACENTO),A 
7661 C9 2070 Elé БЕТ 
7662 2А4Е5С 2080 CHANEL LD HL, (23631) 
7685 О1ОЕОО 2090 LO BETS 
7688 09 2100 ADD HL,BC 
70В9 010476 2110 LD ВС, Ц8ЕЕ 
766C 71” LD (HL), C 
Тавр 25 INC HL. 
76BE 70 LD (HL), E 
7ӨБЕ 09 RET 
7 оо CARSET ПЕЕВ О 

20 ENT CARSET 


Spectrum puede con todos. 


¿Quién nos gana en 
gama? Estamos por 
asegurar que ninguno. 

No olvides que tenemos un 
Spectrum para cada 
exigencia: dos capacidades 
diferentes (16K y 48K) y 
tres modelos con dos tipos 
de teclado (doméstico y 
profesional). 


¿Quién nos gana en 
programas? Specirum 
cuenta con más de 5.000 
fítulos publicados a nivel 
intemacional, cien de ellos 
están traducidos al 
castellano. 


Naturalmente estos crecen 
casi de forma constante. 
Una buena muestra es el 
voluminoso catálogo de 
software que puedes 
solicitar a tu distribuidor de 
confianza. 


* De venta en la Red de Concesionarios 


INVESTRONICA. 


¿Quién nos gana en 
periféricos? Ya son más de 
50 los periféricos creados 
especialmente para el 
Spectrum, pero по creas 
que eso termina ahí. Es 
muy raro el día que no 
aparece en el mercado una 
novedad. Así tu Spectrum 
guardará para її el mismo 
interés del primer día. 


¿Quién nos supera en 
número? Otro factor a tener 
en cuenta: te diremos que 
ya son más de tres 
millones los 
microordenadores Sinclair 
vendidos en todo el mundo 
(y más de 100.000 
Spectrum vendidos en 
España) ¿no te parece esto 
Una buena razón para 
confiar en tu Spectrum?. 
Decídete; este año tener un 
Spectrum es todo un regalo. 


Los concesionarios 
INVESTRONICA tienen para fí 
un montón de novedades, 


SINCLAIR RESEARCH LIMITED hace constar que no está en condiciones de garantizar el origen y calidad de 
aquellos productos que no hayan sido comercializados en España a través de su distribuidor exclusivo INVESTRONICA, S.A. 


Llamado en general Life, aunque también recibe distintos 


nombres y modalidades, es el programa típico de obligada 
incorporación en todos los paquetes de demostración, 
independientemente del ordenador. Este conocido 
programa nos servirá en esta ocasión para analizar las 
técnicas de programación BASIC a emplear en el 


Spectrum. 
L juego de la vida no es en 2) Una célula muere (desapa- 
realidad un juego sino un гесега del tablero en la siguiente 
proceso evolutivo que el generación) si tiene 4 о más células 


ШЕШ usuario prepara y observa. 
Inventado por John Con- 
way, el programa simula una colo- 
nia de células, que se desarrollan a 
partir de una colonia inicial de 
acuerdo con tres reglas básicas. Las 
células se sitúan en un tablero 
compuesto de casillas individuales 
y cada generación siguiente se de- 
termina según el número de casi- 
llas adyacentes que contengan 
lulas. Las reglas son las siguientes: 

1) Si una célula posee, en los 8 
casilleros adyacentes, dos o tres cé- 
lulas vecinas, sobrevivirá a la si- 
guiente generación. 


REMATE 


vecinas (por superpoblación) y 
uno o ningún vecino (por aisla- 
miento). 

3) En cada casilla que esté va- 
cía que tenga tres vecinos nacerá 
una célula en la siguiente genera- 
ción. 

Para implementar esto en el or- 
denador, es obvio que deberán ma- 
nejarse tablas bidimensionales de- 
bido a que el tablero está compues- 
to de filas y columnas. También es 
necesario tener otra tabla extra de- 
bido a que el tablero de la genera- 
ción (n+1) se define de acuerdo con 
la generación (n), y ninguna célula 


140 NEXT 


F 


10 PRINT TAB 12: “XLIFEX" 145 КЕМ *SITUA LA COLONIA EN LA 
20 PRINT CADENAX 
зо DIM A(16,16) 150 FOR F=1 TO 6 
40 DIM B(16, 16) 160 FOR 7-1 TO 6 
SO DIM A$(6,6) 170 IF АФ(Ғ,2) ="ж" THEN LET EC 
60 LET GEN=0 Е+5,7+5)=1 
70 КЕМ XCOLONIA ІМІСІА Ж 180 NEXT 2 
ВО РКІМТ "TECLEE LA COLONIA ІМ 190 NEXT F Y 
ICIAL QUE SE SITUARA EN LAS CA 200 GO SUB 1000 
SILLAS СЕМ- TRALES DE 6 х 6. ТЕС 205 КЕМ ЖІМСКЕМЕМТО DE GENERACI 
LEE 6 CADE- NAS DE 6 CARACTERES, ONX 
YA SEAN AS-TERISCOS (Ж) O ЕЗРАС 210 LET GEN=GEN+1 
IOS." 230 FOR X=2 TO 13 
90 PRINT 240 FOR Y=2 TO 15 
100 FOR F=1 TO 6 250 КЕМ *XINICIALIZA CONTADORXK 
110 PRINT "CADENA ":F: 260 LET C=0 
120 INPUT A$(F) 265 REM COMPRUEBA LAS CELULAS 
130 УЕСІМАЅЖ 


FRINT " ":АФ (Р) 


de la generación (n) se puede alte- 
rar hasta que no se completa el 
proceso de comprobación. 

En la tabla de la generación (n) 
hay que hacer una comprobación 
de todos los casilleros, y contabili- 
zar el número de células vecinas. 
Según las reglas, el futuro de la cé- 
lula en esa posición está determi- 
nado, y si está vacio nacerá una 
nueva célula. Estos datos se alma- 
cenan en una cadena, y seguida- 
mente la cadena de la generación 
se actualiza según los cambios. 

El programa se divide en las si- 
guientes secciones: 

1) Inicialización (líneas 30-60). 
Preparación de dos tablas de 16 x 
16, con 6 cadenas para almace- 
nar la colonia inicial. El conta- 
dor de generaciones se inicializa 
a0. 

2) Entrada de los datos de la 
colonia inicial (líneas 70-140). Se 
introducen y se imprimen 6 cade- 
nas de 6 caracteres. 

3) La colonia inicial se alma- 
cena en la cadena. Las líneas 
150-190 sitúan la célula “1” en la 
cadena B cuando se detecta un as- 
terisco “%” en la cadena inicial te- 
cleada en el punto 2, en el bloque 
central de 6 x 6. 

4) Subrutina de impresión. La 
linea 200 manda el control a la sub- 


A(X-1,Y)=1 THEN 370 NEXT Y 


380 NEXT X 

A(X-1,Y+1)=1 THEN LET С 400 60 TO 200 
1000 CLS 

A(X,Y+1)=1 THEN LET С=С 1005 PRINT АТ 0.1: "GENERACION "3 
GEN 


A(X.Y-1)=1 THEN LET С=С 1010 FOR X=1 TO 16 
1020 FOR Y=1 TO 16 
A(X+1,Y-1)=1 THEN LET C 1025 КЕМ XACTUALIZACION DE LA CA 
DENA АЖ 
A(X+1,Y)=1 THEN LET С=С 1020 LET A(X,Y)=B(X, Y) 
1035 REM XIMPRIME LA CADENAX 
A(X+1,Y+1)=1 THEN LET C 1040 IF A(X,Y)=1 THEN FRINT АТ 
X+2,VY+6; "k" 


345 REM XDECIDE SI MACEX 1050 IF A(X,Y)=0 THEN. РКІМТ АТ 
350 IF А(Х.Ү)-о AND C THEN: ц Хва уже 
ЕТ E(X,Y)=1 1060 NEXT Y 
355 КЕМ *DECIDE SI MUERE ¥ 1070 МЕХТ Х 


60 IF A(X,Y)=1 AND (С>2 OR C<2 1080 COPY 
20) THEN LET B(X,Y)=0 1070 RETURN 


EA 


rutina. Esta utiliza un bucle do- 
Ме para igualar las cadenas А y В, 
ya continuación imprime un aste- 
гізсо еп el tablero por cada “1” 
que encuentra en la cadena A. Ob- 
serve que al final de esta subrutina, 
las cadenas A y B contendrán la 
misma información. La pantalla se 
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copia y se devuelve el control a la 
línea 210. Aquellos que no tengan 
la impresora tendrán que omitir la 
línea 1080. 

5) Comprobación de la pobla- 
ción para determinar la generación 
siguiente. La generación se incre- 
menta en una unidad. El bucle do- 


ble se inicializa y cada célula en la 
cadena A se comprueba para ver el 
número de células vecinas que po- 
see. El contador C se incrementa 
en una unidad por cada vecino que 
tenga. La linea 350 sitúa una célu- 
la “recién nacida” en la cadena B 
si la célula de la cadena A está en 


О 
DELAS CADENAS, 
DELAS GENERACONES| 


wean 
тисс мез 


енын NUMERO 
OE LA CADENA 


ENTRADA 
CADENA ғ 


blanco, y сі número de vecinos cs 
3. La línea 360 mata cualquier cé- 
lula que esté rodeada de 3 o menos 
de dos vecinos. Al elemento co- 
rrespondiente en la cadena В se le 
pone un 0. Llegados aquí, la cade- 
na B contiene la futura generación 
de células. La cadena A se deja 


para el proceso de comprobación. 
Esta es la razón por la que las dos 
cadenas se igualan en el punto 4. 

6) El control se devuelve a la 
línea 200 y se repiten los puntos 4 
y5. 
La forma de situar los asteriscos 
al comienzo, determinará la mane- 


ra de desarrollarse las células. Al- 
gunos planteamiento iniciales 
mueren después de unas cuantas 
generaciones, mientras otros en- 
tran en un ciclo estable que se re- 
pite y hay una tendencia general 
hacia la simetría si la población so- 
brevive el tiempo suficiente. 
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ип nuevo lenguaje: 


En este segundo capítulo vamos 
a tratar de explicar más detenida- 
mente la manera de formar las ex- 
presiones de las que hablamos an- 
teriormente, y una visión más ge- 
neral sobre los tipos básicos de da- 
tos. Veremos los datos de tipo en- 
tero, boolean, real, y el tipo carac- 
ter, las expresiones que podemos 
formar con ellos y los operadores 


correspondientes. 


Expresiones 


En general las expresiones las 
utilizamos en diferentes contextos 
dentro de los programas, pero to- 
das tienen un propósito básico, 
que es el obtener ип valor como ге- 
sultado. Por otra parte, los distin- 
tos operadores dentro de una ex- 
presión tienen una jerarquía, esto 
es, un sistema de prioridades, o sea 
que dentro de una expresión se eje- 
cutan unos antes que otros. Así la 
lista de operadores clasificados por 
orden de prioridad decreciente es: 


1) NOT, y cambio de signo: — 


2) DIV, МОР, *,/, AND 
3) +— OR 
4) <,<,-,>,>,<> 


La sintaxis de una expresión se 
observa en las figuras І a 4. 

Si queremos modificar езіе ог- 
den natural, tendremos que utili- 
zar paréntesis, siendo la parte en- 
cerrada entre éstos la que toma la 
más alta prioridad. Todas las ex- 
presiones tienen un tipo y un va- 
lor. Vamos a estudiar ahora los 
distintos tipos de expresiones, jun- 
to con los tipos de datos. 


Datos de tipo entero 


El tipo INTEGER nos permite 
representar, almacenar y procesar 
números enteros en Pascal (cero, 
positivos y negativos). El tamaño 
de los enteros con que podamos 
operar dependerá de la longitud de 
palabra de cada ordenador. Si su- 
ponemos que el identificador ma- 
xint es el máximo valor entero per- 


mitido, el Pascal operará con valo- 
res enteros dentro del rango: 


— maxint, 
xint 


=1,0,1, ..., ma- 


Si se excede del máximo valor 
maxint se producirá la condición 
de overflow (exceso de capacidad). 

En lo referente a las constantes 
enteras, éstas se escriben como una 
secuencia de digitos decimales, op- 
cionalmente precedida por un sig- 
no: “—” indicará un número nega- 
tivo, y el signo “+” o sin signo indi- 
cará un número positivo (figuras 5 
y 6). Ejemplos de constantes ente- 
ras serían: 


máximo=100 
mínimo=-máximo 
n=-245 


Un ejemplo de constante erró- 
nea sería 12.05, pues contendría el 
caracter especial “.”, Para usar va- 
riables enteras dentro de un pro- 
grama tendremos que especificarlo 
en la parte de declaración de varia- 
bles de tipo entero. Un ejemplo de 
declaración de variables enteras es: 


VAR número 1, número 2; inte- 
ger; 


Una expresión entera en el caso 
más general está constituida por 
una serie de constantes enteras y 
variables enteras ligadas por los 
operadores aritméticos de suma 
(+), resta (-), multiplicación (*) y 
división entera (DIV). 

Recordemos que también es po- 
sible obtener el resto de una divi- 
sión usando el operador MOD. 
Este operador viene definido por: 


a MOD b=a- (a DIV b)*b 


En una expresión entera el or- 
den de prioridad de las operacio- 
nes se realiza de acuerdo con las si- 
guientes reglas: 

1. Se efectúan las operaciones 
de multiplicación y/o división in- 
distintamente, comenzando por la 
izquierda. 

2. Se realizan a continuación 
las operaciones de suma y/o resta, 
también empezando рог la iz- 
quierda. 


Asi, por ejemplo, la expresión 


entera: a +b ж c—d, se evaluará de 
la siguiente forma: 


1) Әжс-Ү 
2) a+Y=Z 
3) Z-d 


En Pascal no existe el operador 
de exponenciación. Sin embargo, 
disponemos de la función estándar 
SQR(x) que nos permite calcular el 
cuadrado de x. Por último, para 
terminar con los datos de tipo en- 
tero debemos decir que el valor de 
una expresión entera puede asig- 
narse a una variable entera o a una 
variable real. 

Así, si hemos declarado: 


VAR 
velocidad, tiempo: INTEGER; 
espacio: REAL; 


la asignación espacio := velocidad 
* tiempo es perfectamente posible. 


Datos de tipo boolean 


Las constantes y variables boo- 
leanas pueden tomar únicamente 
dos valores: TRUE o FALSE (ver- 
dadero o falso). 

El conjunto lógico está ordenado 
en Pascal por la relación de falso 
< verdadero. 

Para utilizar una variable lógica 
dentro de un programa la debere- 
mos declarar con el atributo BOO- 
LEAN. Por ejemplo: 


VAR 
lógica: BOOLEAN; 


Existen tres operadores boolea- 
nos о lógicos: AND(A), OR(V) y 
NOT(1). La tabla de verdad que 
representa la lógica de actuación 
de estos operadores aplicados a las 
variables booleanas p y q es: 


o | sa [вуч [ona] 1р 
true true true true | false 
true | false | true | false | false 

false | true true false | true 
false | false | false | false | true 


Igualmente un valor lógico lo 
podemos obtener como resultado 
de cualquier relación o compara- 


ción, donde una relación viene de- 
finida por: 


e, operador de relación e, 


siendo e, y e, expresiones aritméti- 
cas y los operadores de relación los 
ya conocidos <, <,-, >,>,<>. 
Veamos un ejemplo para com- 


prender mejor lo dicho. Sean p y q 
dos variables booleanas, y X, Y, Z 
tres variables enteras que tienen 
los valores 5, 8 y 13, respectiva- 
mente. 

Las sentencias: 


р=х=у 
а:=(х < y)A(y < 2) 
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definen los valores lógicos de 
p= false y q = true. 

La sintaxis de las expresiones ló- 
gicas puede verse en las figuras 7 a 
9 


La sentencia de lectura READ 
no acepta variables booleanas. Por 
tanto, los valores de estas variables 
se deberán asignar a lo largo del 
programa, nunca mediante una 
sentencia de lectura. 

Las expresiones de Boole son 
aquellas que al evaluarlas dan 
como resultado un valor lógico 
(true о false). Como hemos visto, 
un caso particular de una expre- 
sión es una comparación. Por 
ejemplo: І < 6 da true al evaluar- 
la. Pero una expresión booleana 
propiamente dicha consiste en una 
combinación de constantes lógicas 
(true o false), una variable lógica, 
una función estándar lógica y una 
función lógica de usuario. Unién- 
dolos mediante uno de los opera- 
dores booleanos NOT, AND y 
OR, advirtiendo que el operador 
NOT sólo afecta al operando que 
le sigue, es decir, es unario, mien- 
tras que AND y OR son binarios. 

Para terminar con el tipo boo- 
lean vamos a comentar tres funcio- 
nes estándar de Pascal que entre- 
gan un valor lógico al ser llamadas: 


a) La función ODD (x) para x 
entero pregunta si es impar, dando 
true en este caso y false en caso 
contrario. 

b) La función EOF(f) indica si 
se ha alcanzado el final del fichero 
f dando true en este caso y false en 
caso contrario. 

с) La función EOLN(f) que in- 
dica si se ha alcanzado el fin de lí- 
nea del fichero f. 


Estas dos últimas funciones se- 
rán vistas más adelante. 


Datos de tipo real 


Cuando deseamos medir canti- 
dades físicas, como distancias o 
tiempos, los números enteros nos 
resultan inadecuados. Estas medi- 
ciones dan lugar a números del 


tipo 15.77, 105, 0.001, etc., а los 
que llamaremos números reales. 
Al igual que en los números ente- 
ros, existe un límite para el núme- 
ro de digitos de un número real. 
Este límite dependerá de cada or- 
Яепадог. 

Existen dos formas de гергеѕеп- 
tar las constantes reales: en forma 
de notación decimal (coma fija) y 
en forma científica o coma flotan- 
te. 

Así, por ejemplo, 11E3 equivale 
а 11000.0 y 1E-3 equivale a 0.001, 
donde la letra E representa el fac- 
tor de escala 10. 

Es imprescindible que el punto 
sea precedido y seguido de una ci- 
fra como minimo. Por ejemplo, las 
constantes 4. .0 250 son incorrec- 
tas. 

Las variables reales deben ser 
declaradas mediante el atributo 
real. Un ejemplo de una declara- 
ción de variables reales es: 


VAR 
МІ, №: REAL; 


La sintaxis de un número real se 
representa en la figura 10. 

Las expresiones aritméticas con 
números reales se construyen de 
manera similar a las expresiones 
enteras. Los operadores aritméti- 
cos utilizados son: +, —, ж, /, siendo 
“/” división real, es decir, el co- 
ciente es siempre un valor real. 

Veamos ahora las restricciones 
con respecto a las asignaciones. 

Mediante una sentencia de asig- 
nación se puede asignar a una va- 
riable real un valor o expresión 
que sea integer o real. 

En cambio, no podemos asignar 
a una variable integer un valor o 
expresión real. Así, por ejemplo, si 
hemos declarado la variable 1 
como integer la sentencia І = 
2.345 es incorrecta. 

En cuanto a las expresiones, una 
expresión entera no puede conte- 
ner operandos reales, mientras que 
una expresión real puede contener 
operandos reales o enteros indis- 
tintamente. 

Además de la función SQR que 
ya hemos visto, el lenguaje Pascal 
tiene incorpordas un conjunto de 
funciones estándar en las cuales se 
acepta un determinado tipo de pa- 
rámetro (integer o real) y devuelve 


un determinado tipo de resultado 
(integer o real), según la función. 
La lista de las funciones es la si- 
guiente: 


— ABS(x) valor absoluto de x. 

— SQR(x) cuadrado de x. 

— SIN(x) seno de x (x en radia- 
nes). 

— COS(x) el coseno de x para x 
en radianes. 


— ARCTAN(x) агсоќапрепіе 
de x (el resultado en radianes). 
— ЕХР(х) ex. 


— LN(x) el logaritmo neperia- 
no dex. 

— SQRT(x) raíz cuadrada de x 
(x mayor que O). 

— ROUND(x) valor de x re- 
dondeando al entero más próximo, 
por ejemplo, ROUND(3.7) = 4. 

— TRUNC(x) parte entera de x, 
porejemplo, TRUNC(3.7)= 


Datos de tipo caracter 


Los datos de tipo caracter los 
forman un conjunto finito y orde- 
nado de caracteres en el que están 
incluidas las letras, los dígitos, el 
caracter blanco y los caracteres es- 
peciales. Por supuesto, el juego de 
caracteres reconocidos dependerá 
de cada ordenador, 

Una constante de tipo caracter 
es un elemento del conjunto de ca- 
racteres disponibles. Se representa 
dentro de un programa por el ca- 
racter encerrado entre apóstrofes 
(comilla simple), excepto el propio 
apóstrofe que a efectos sintácticos 
necesita ser duplicado. Por ejem- 
plo: 


jp ye 


representan a los caracteres 1, /, V 
у”, respectivamente. 

Estas constantes también pue- 
den ser una cadena de caracteres 
delimitadas por dos apéstrofes. Un 
ejemplo de una cadena de caracte- 
res seria: ‘CADENA’ que constaria 
de 6 caracteres. 

En cuanto a las variables de tipo 
caracter deben ser declaradas en la 
parte de declaración de variables 
con el atributo CHAR. Por ejem- 
plo: 


VAR 
caracter, palabra: СНАВ; 


La lectura de datos de tipo ca- 
racter debe realizarse caracter a ca- 
racter. Por tanto, si queremos leer 
una cadena de caracteres lo debe- 
remos hacer con sentencias repeti- 
tivas las cuales veremos más ade- 
lante. 

Vamos a ver, por último, cuatro 
funciones estándar que actúan so- 
bre datos de tipo caracter. Hemos 
dicho que el conjunto de caracte- 
res es un conjunto ordenado. La 
función ORD(x), siendo x un ca- 
racter obtiene el valor ordinal de x 
en el conjunto ordenado de carac- 
teres. Evidentemente el valor obte- 
nido con esta función depende del 
conjunto de caracteres empleados 
por el sistema. En cualquier caso el 
máximo valor es el 255. En el sis- 
tema de codificación ASCII: 


ORD(1)=48 

ORD(3”) = 50 

La función CHR(x) es Іа inversa 
de ORD(x). Obtiene el caracter 
que corresponde al valor entero x 
dentro del conjunto ordenador de 
caracteres. Por tanto, se cumplen 
las relaciones: 

CHR(ORD(x)=x 

ORD(CHR(i)) 


Existen también otras dos fun- 
ciones que operan dentro del con- 
junto de caracteres. La función 
PRED(xy obtiene el caracter prece- 
dente al caracter x dentro del con- 
junto ordenado de caracteres. x no 
puede ser el primer elemento del 
conjunto. 

Por ejemplo: 


PRED(5)=4 
PRED(B”)=A 
y la función SUCC(x)- obtiene el 
caracter que sigue al caracter x 
dentro del conjunto ordenado de 
caracteres. También deben cum- 
plirse las identidades: 
PRED(SUCC(x) =x 
SUCC(PRED(x))=x 


Dentro del conjunto de valores 
booleanos: 


PRED(true) = false 


SUCC(true)= ERROR no existe. 


Vamos a incluir a continuación 
un pequeño programa para ver 


más claramente el uso de las ех- 
presiones aritméticas, y de algunas 
de las funciones estándar de las 
que ya hemos hablado. El progra- 
ma calcula las raíces de una ecua- 
ción de segundo grado. Incluye 
una sentencia IF de la que hablare- 
mos en próximos capítulos. 
También se ha incluido una 
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constante de tipo caracter (cadena 
de caracteres). 

El programa de ejemplo realiza 
la resolución de ecuaciones de se- 
gundo grado por la fórmula: 


+ yb: 


2a 


En él aparecen las tres senten- 
cias básicas que hemos explicado 


hasta ahora (lectura, escritura y 
asignación). 

La parte de declaración com- 
prende las líneas 20 a la 60. En ella 
hemos declarado una constante de 
tipo cadena de caracteres, y a su 
vez todas las variables que hemos 
usado durante el programa. 

Todas las variables son de tipo 
real. 

La parte principal del programa 
(cuerpo) comprende las líneas 70 а 
la 280. Lo primero que deberemos 
tener en cuenta para este programa 
es que la raíz cuadrada tiene que 
Ser siempre positiva. Por lo tanto, 
en la variable DISCRI, efectuamos 


la operación aritmética del cálcu- 
lo del discriminante de la ecua- 
ción, con las funciones estándar 
que ya hemos explicado. Si esta 
variable DISCRI es mayor o igual 
а cero, pasamos a calcular las гаі- 
ces de la ecuación y a imprimirlas 
(líneas 120 a 190), y en caso con- 
trario, imprimimos un literal indi- 
cando que no existen raíces reales 
para la ecuación dada. La instruc- 
ción IF será explicada en el próxi- 
mo capítulo. 

Por último, recordar que la ins- 
trucción (WRITE(CHR(16))) es 
propia del compilador que hemos 
usado. 


Ха: =(-B-SQRT (DISCRI 


оние не. 


ЕСОЯСІОМ SON: 


RE 3% PROQRAM ECUACION; 
AG 30 ` SEPRRRDOR='--------- A 
5% “е, B.C,X1,X2: REAL; LAS RAICES DE LA 
ёд DISCRL:RÉAL; г Xiu -0.628 
ы A 
82 URITE (GHA (18); 
35 URITELN('LA ECUACIÓN 
IDR 6829): 
17286) ааг. 
“бё "СОКІТЕЇ М (SEPARADOR) 
109 DISCAIN SSSR Зана 
112 IF DISCRI,Q THEN 
120 BEGIN 
130  XL:m(-B+SORT(DISCRI 
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в N; 
199 ШЕТТЕ хам" ,ха:7; 
гад ЕМО 
210 ELSE . 
339 Ын; 
240 ÚRITELN('NO EXISTEN 
CES REALES”); 
250 URIFELN 
258 END; 
278 _ URITELN (SEPARADOR) 
282 END. 
Address: AED 


Ejemplo de asignación, entrada<salida de datos, declaración 
de las constantes (N = 3), variables y utilización de las 
instrucciones BEGIN-END, WRITELN sirve para escribir 
por líneas. 


RAICES DE 
X1s -0.697 
Хаз -4,303 


LA ECUACIÓN SON: 


ucho se ha hablado y se 

seguirá hablando sobre 

las capacidades gráficas 

del Spectrum. Una forma 

de utilizarle al máximo 

en este sentido, es trabajar con los 

programas de diseño, cada vez más 

abundantes, y que requieren estu- 

dio detallado que emplazamos 

para un próximo número. Por el 

momento, nos fijamos en uno en 

particular: El Artist, gracias al 

cual hemos venido realizando las 
portadas de TODOSPECTRUM. 

Sea cual sea el programa elegi- 

do, realizar un gráfico de estas са- 

racterísticas requiere grandes dosis 


de paciencia y, por supuesto, un 
boceto previo. En esta etapa inicial 
de dibujo no interviene el Spec- 
trum y, es más, el dibujante ni si- 
quiera lo conoce, concentrado en 
la tarea creadora en su estudio de 
Barcelona. Una vez realizado el di- 
bujo, viene la segunda parte: pa- 
sarlo al Spectrum. Resulta prácti- 
camente imposible realizar una 
copia exacta y uno de los mayores 
problemas reside en la combina- 
ción de tres o más colores en una 
cuadrícula o caracter. El objetivo 
es sacar el mayor provecho del 
Spectrum y del programa. 

Para ser lo más fieles posibles al 


dibujo, se siluetea en la pantalla, 
momento a partir del cual entra 
en juego el Artist. Veamos breve- 
mente sus principales caracteris- 
ticas. 

El programa permite tres modos 
de utilización: ACTIVO, para tra- 
zar líneas a su paso; PASIVO, para 
desplazamientos sin modificar el 
dibujo: y BORRADO. para elimi- 
narel dibujo a su paso. 

El movimiento de cursar se logra 
presionando diversas teclas: (Q) 
subir, (A) bajar, (Z) izquierda, (X) 
derecha, (W) diagonal ascendente 
izquierda, (R) diagonal ascendente 
derecha y (D) diagonal descenden- 


te derecha. El tamaño y la veloci- 
dad del cursor es seleccionable. 


Estos reducidos conocimientos 
de funcionamiento del programa 
son suficientes para trazar el cur- 
Sor por la silueta previamente 
marcada sobre la pantalla, es decir, 
para memorizar los primeros da- 
tos. A continuación vienen los de- 
talles. En е1 caso del SANTA- 
CLAIR, inicialmente se dibujó a 
Papa Noel arrastrando un saco de 
regalos. Después vendría la ciudad 
del fondo, el reno con el trineo, los 
Spectrum de regalo y, finalmente, 
la figura de Sir Clive Sinclair, 
quien a buen seguro se quedó con 
el saco vacío durante las pasada 
navidades. З 


ЕІ contorno о silueta de las figu- 
ras no encierra grandes problemas. 
El mayor contratiempo es la intro- 
ducción del color. El Spectrum 
sólo admite dos colores por carac- 
ter, pero se deja engañar un poco. 
Siguiendo los colores empleados 
por el dibujante (en base a la selec- 
ción que ofrece el Spectrum) se co- 
lorea caracter a caracter con el co- 
lor que mayoritariamente aparez- 
ca, además de la silueta dibujada 
anteriormente, la silueta caracter a 


гі 
енен жены PRA 
caracter del color que toma сада 
parte del dibujo. 

Para poner el color hemos de es- 
tar en modo texto. Una vez aquí 
aparecerá un cursor del tamaño de 
un caracter que podemos mover 
con las teclas usuales (punto 3). Al 
mismo tiempo en las líneas de in- 
formación vemos el color en el que 
dibujaremos al poner ACTIVO el 
cursor, este puede ser alterado fá- 
cilmente pulsando: 


9: FLASH/NO FLASH 

Una vez que seleccionemos lo 
que nos sea necesario pondremos 
el cursor en modo ACTIVO pul- 
sando “1” y dejaremos ese color en 
el caracter en donde se encuentre, 
Terminado esto, tendremos que 
amoldar el dibujo inicial para 
aprovechar al máximo el color que 
corresponde al caracter. 

Ahora solamente queda delimi- 
tar qué zona va a ser INK o PA- 
PER. Nos vamos a valer de los di- 
bujos de la figura 1, correspon- 
dientes a la frente de SANTA- 
CLAIR, para verlo mejor. 

El caracter que tiene un solo co- 


lor no se modifica (А1). 
E ción de las afueras de Ma- 
drid, Víctor Ruiz desarro- 
ШЕШ lla su trabajo еп lo que un 
joven grupo de programa- 
dores ha denominado la “Mansión 
Dinamic”, compartiendo su código 
máquina con los estudios universi- 
tarios. Estuvimos allí un domingo 
“que es cuando coges a todos”. 
Con su Spectrum, Víctor comen- 
{0 a trabajar соп el Artist cuando 
el grupo aún no se había formado. 


n una moderna urbaniza- 


Los caracteres B1, B2 y А2 tie- 
nen dos colores, por lo que hay 
que elegir qué parte de ellos va a 
ser INK o PAPER. 

Para utilizar el FILL la parte a 
rellenar debe estar cerrada por to- 
dos sus lados y para saber qué par- 
tes del dibujo están en INK o PA- 
PER podemos utilizar el GRID (es 
INK todo lo que aparece en ne- 
gro). 

Otro pequeño truco es utilizar la 
potencia de los gráficos definidos. 
Para ello del modo texto volvemos 
al menú principal y seleccionamos 
la opción UDG. Aparece un 
GRID para diseñar gráficos y un 
papel editor, sobre el cual se des- 


“Lo hice para mí. Conocía el Paint 
Box y quería mejorarlo en aquellos 
puntos que veía flojos, especial- 
mente en el movimiento del cursor 
que es muy lento, así como tener la 
posibilidad de simultanear las re- 
presentaciones gráficas con la defi- 
nición de bloques gráficos”. Estuvo 
cuatro meses desarrollando la 
idea, “sin prisas, porque era para 
ті. Los mayores problemas los 
tuve con la rutina tridimensional 
3D. Cada punto son cuatro bytes y 


plaza un cursor (controles en pun- 
to 3) con el que pondremos o qui- 
taremos pixels del GRID pulsando 
CAPS SHIFT. Una vez que nos 
convence el gráfico diseñado lo 
podemos definir en el caracter y 
banco seleccionado. 

Además de definir tenemos una 
| serie de posibilidades: Rotar, In- 
vertir y Reflejar. 

Para introducir estos gráficos en 
| pantalla volvemos al modo texto y 
seleccionamos la opción gráficos. 
Nos aparece el cursor que contro- 
lamos con CAPS SHIFT y los cur- 
sores. Los situamos en el lugar que 
nos interesa y presionamos la tecla 
que corresponda al gráfico diseña- 
do, En el caso del SANTACLAIR 
las “firmas” se introdujeron de 
esta manera. 

Finalmente destacar que el Ar- 
tist permite la impresión de “Чех- 
tos gigantes”, así como gráficos en 
tres dimensiones. En el primer 
caso, se presiona “5” en el modo 
texto. apareciendo el cursor que 5і- 
tuaremos en el lugar donde empe- 
zaremos a escribir. A continuación 
presionamos “0”, introducimos el 
ancho y el alto (en caracteres) y el 
texto a insertar. En el segundo 
caso, se pueden hacer rotar los grá- 


como se guardan las pantallas para 
saltar entre menús, la rutina que 
había realizado no cabía. Tuve que 


“Por el mismo trabajo 

haces un juego que vendes 
cinco veces más” 

— s 


ubicarla en otra dirección inferior 
pero el direccionamiento no era el 


ficos, sobre todos sus ejes, y acer- 
carlos o alejarlos (en forma de 
ZOOM). Pulsando la tecla “0”, se 
mezcla la figura con el dibujo que 
tuviéramos realizado. 


Y esto es todo. Lo más impor- 
tante es disponer de grandes dosis 
de paciencia. Seguro que le queda- 
rán preciosos. ¿Cuándo dijo que 
noslo mandaba? 


Figura 1. 
Detalle de la 


“Frente de Sinclair” 
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adecuado. Cuando por fin ves rotar 
un cubito... se siente uno bien”. 
Con lo que no se sentía tan bien 
es con la respuesta del público. “Por 
cada cinco juegos te piden un Ar- 
tist. No compensa hacer progra- 
mas de utilidades, por el mismo 
trabajo haces otro que vendes cinco 
veces más. Por eso ahora hemos 
abandonado las aplicaciones”. ` 
Una empresa de Barcelona quie- 
re diseñar mochilas y son precisa- 
mente sus posibilidades de diseño 


las que le hacen especialmente inte- 
resante para ellos mismos en su 
confección de carátulas y pantallas 
de los juegos que más tarde salen al 
mercado “Es muy importante la 
pantalla de carga, como se ve en 
todos los juegos de Ultimate. Si las 
pantallas son malas, algo marcha 
mal. Salvo la pantalla del Fred, 
somos los únicos que nos estamos 
preocupando por las pantallas de 
carga. Es una cuestión de imagen 
muy importante”. 


L proceso educativo consta 
К: cinco etapas: біасібп de 

metas; objetivos; estrategias 
ШЕШ metodológicas; método, 

aprendizaje, evaluación y re- 
cuperación. 

No se puede pensar en la reali- 
zación completa de un acto educa- 
tivo si falta cualquiera de dichas 
etapas. Por tanto, la evaluación se 
halla integrada en el proceso edu- 
cativo, siendo eslabón inseparable 
de toda una cadena de actividades. 
La evaluación podría definirse 
como un proceso sistemático para 
determinar hasta qué punto los ob- 
jetivos educativos han sido logra- 
dos por los alumnos. Con lo dicho 
resulta fácil concluir que la eva- 
luación es un término en plena уі- 


gencia y de rico contenido; siendo 
un proceso no fácil pues toma en 
algunos casos significado de juicio 
a los alumnos con el fin de sólo 
medir sus conocimientos. Sin em- 
bargo, justifica su significado e im- 
portancia en los siguientes facto- 
res: 

— La preocupación por la efi- 
cacia docente, que busca obtener 
el máximo provecho de los medios 
disponibles y lograr información 
constante del proceso educativo. 

— La nueva concepción del 
rendimiento en la enseñanza. La 
evaluación es tarea más compleja 
que una simple medida. La medi- 
ción sólo es una fase de la evalua- 
ción que suministra datos, pero 
evaluar significa además emitir 


Cuando se habla de un ordenador 
en la escuela, lo primero que se 
piensa es en una clase llena de 
ordenadores. 

Esto puede ser factible 

en un futuro no muy lejano. 

Por el momento,nos centramos 
en el profesor. 

Dada su longitud, disponemos de 
copias grabadas que podrá 
solicitar retirando el cupón que 
seadjunta. 


juicios de valor sobre ellos, es de- 
cir, obtener parámetros cualitati- 
vos y cuantitativos del alumno, 
consiguiendo una información lo 
más completa y objetiva posible 
que sirva de conocimiento para el 
profesor. 

— La necesidad de individuali- 
zación pedagógica para alcanzar la 
eficacia deseada. Es decir, los jui- 
cios valorativos que se emiten so- 
bre las mediciones han de estar ba- 
sadas en la personalidad del alum- 
no y en las necesidades sociales. 

— La necesidad de superar la 
ineficacia del sistema clásico de 
control. Este, basado sólo en exá- 
menes conlleva, tanto en la prepa- 
ración del examen como en la cali- 
ficación, un alto nivel de subjetivi- 


dad, además de obligar а! alumno 
solamente a pasarla prueba, y noa 
estimular su formación individual. 
En definitiva, la evaluación ha 
de tener los medios adecuados, que 
los hay actualmente (aunque no 
Siempre se usan), para prestar 
atención continua, racional, espe- 
сїйса y objetiva hacia el alumno. 


Instrumento de evaluación 


Los instrumentos de evaluación 
deben estar adaptados a cada etapa 
del sujeto. Así como para el prees- 
colar, ciclo inicial y ciclo medio es 
interesante un control basado en la 
observación, entrevistas, pruebas 
orales (sin carácter de examen), е 
incluso algún control escrito, aun- 
que éstos incluyan un cierto nivel 
de subjetividad, son los instrumen- 
tos más provechosos y adaptables 
para estas etapas, en el ciclo supe- 
rior y otras etapas posteriores 
(ВОР, COU, universitarios, etc.) se 
pueden utilizar los ya citados, 
siempre con menos intensidad, 
pero sobre todo los trabajos en gru- 
po, temas a desarrollar y los test. 
Debe tenerse en cuenta que depen- 
diendo del grupo de sujetos, estos 
instrumentos han de ser flexibles y 
acomodarse al nivel de desarrollo 
de comprensión lectora. Así, por 
ejemplo, pueden utilizarse pruebas 
tipo test en sujetos que se encuen- 
tren en la etapa final del ciclo me- 
dio, o, porel contrario, no poderse 
utilizar los test en sujetos del ciclo 
superior. 

De entre todos los instrumentos 
de evaluación, el test proporciona 
una información más completa y 
objetiva del sujeto. Aunque su ela- 
boración, para que sea eficaz, es 
complicada para el profesor, lo 
que supone una alta preparación 
por su parte. Sus ventajas son múl- 
tiples e innegables: 

— Permiten una rápida correc- 
ción y calificación: plantillas o 
computadoras. 

— Posibilidad de realizar con- 
troles con frecuencia. 

— Los resultados son compara- 
tivos, puesto que todos los sujetos 
se juzgan con iguales criterios. 

— Los resultados son indepen- 
dientes del estado de ánimo y sub- 
jetividad del profesor al corregir. 


1135-1140.  Subrutina de entra- 
da válida en un INPUT. 

1145-1150. Subrutina бе verifi- 
cación en una entrada por INPUT. 

1162-1173. Dimensiona todas 
las variables con subíndice que se usarán 
en los cálculos, excepto F() y GO. 

1174-1320. Entrada de las res- 
puestas de cada ¡tem para cada sujeto. 

1400-1450. Presentación de pa- 
rámetros. 

1500-1735. Cálculo de los acier- 
tos, errores, nulos y de la puntuación de 
cada sujeto. ; 

2000-2240. Cálculo de la Z de 
cada sujeto. 

3000-3265. Cálculo de los acier- 
tos, errores, nulos y de la puntuación de 


cada sujeto. 
3400-3675. Cálculo de la Z de 
cada sujeto. 
3800-3885. Cálculo del coefi- 


ciente de correlación. 

3890. Cálculo del coeficiente de 
fiabilidad. 

4000-4070. Rutina para ordenar 
las puntuaciones en orden decreciente. 

4085-4140. Calcula los sujetos 
en orden decreciente de puntuación. 

4160. Guarda el 27 por ciento de 
sujetos con mayor puntuación. 

4165-4170. Guarda el 27 por 
ciento de sujetos con menor puntuación. 

4300-4370. Cálculo de As, Ai 
para сада item. Cálculo de los errores. 

4380-4440. Cálculo de los índi- 
ces de validez. 

5000-5200. Presentación del 
menú principal por pantalla. 

5500-5700. Presentación del 
menú de tablas por pantalla. 

6100-6160. Presentación de la 
tabla de aciertos, errores y nulos. 

6200-6260. Presentación de la 
tabla de puntuación. 

6300-6380. Presentación de la 
tabla de la Z. 

6400-6470. Presentación de la 
tabla de aciertos, errores y nulos por se- 


ries. 
6500-6570. Presentación de la 
tabla de puntuación por series. 
6600-6690. Present: 
tabla de la Z por series. 


ión de la 


6700-6760. Elección del tipo de 
listado. 
6770-6813. Entrada por IN- 


PUT del sujeto por donde comienza el 
listado U, y del sujeto en que termina, 
H. 


6814-6830. Presentación de co- 
mandos por pantalla. 

6835-6890. Presentación del 
listado por sujeto por pantalla. 

6891-6899. Bifurcación según 
el comando seleccionado para el listado 
por sujeto. 

6900-6955. Entrada por IN- 


PUT del item por donde comienza el lis- 
tado, U, y del item en que acaba, H. 
6960-6990. Presentación por 
pantalla del listado por item. 
6991-6999.  Bifurcación según 
el comando seleccionado para el listado 
por йет. 
7800-7880. Coeficiente de co- 
rrelación y del coeficiente de fiabilidad. 
7900-7940. Copiar por impreso- 
ra de los coeficientes anteriores. 
8200-8300. Presentación por 
pantalla de los datos iniciales y la no- 
menclatura de los índices de validez. 
8310-8360. Presentación de la 
tabla con los índices de validez. 
8720-8760. Opción para cam- 
biar los datos a otro sujeto. 
9000-9125. En caso de veri 
carse la grabación de datos, dimensiona 
y define las variables que se van a grabar 
y da entrada por INPUT del nombre con 
que quiere grabarse el fichero. 


9130. Grabación datos. 

9140-9160. Da opción a verifi- 
car los datos grabados. 

9170-9220. Verifica los datos 
grabados. 

9400-9490. En caso de verifi- 


carse la carga de datos, inicializa todas 
las variables y dimensiona las que van a 
cargarse. 

9500. Carga los datos en la mis- 
ma secuencia que fueron grabados, 

9510-9560. Definición de las 
variables que va a emplear el programa, 
devolviendo el control del programa a la 
línea 1171 después de llamar a la subru- 
tina que calcula el 27 por ciento de los 
sujetos. 

9700-9750. Presentación por 
impresora de cualquiera de las tablas. 

9800-9840.  Subrutina рага de- 
tener una tabla durante su presentación. 

9850-9890. Subrutina para veri- 
ficar зі se quiere continuar con las opcio- 
nes 4,5, 6, 7 u8 del menú principal. 

9900-9925. Cálculo del 27 por 
ciento de sujetos. 

9930-9970. Cálculo del espacio 
libre de memoria y el número máximo 
de items que se pueden introducir. 


— Біітіпап multitud de facto- 
res ajenos al contenido mismo de 
las pruebas, presentación, caligra- 
fía, estilo, limpieza, etc., que se 
pueden evaluar con otros instru- 
mentos. 

— Ofrecen la posibilidad de cu- 
brir la materia en su máxima am- 
plitud. 

Adentrándonos un poco en el 
tema que nos ocupa, tres son las 
condiciones que deben adornar al 
test: validez, fiabilidad y tipifica- 
ción. 

La validez se refiere al grado de 
exactitud con que el test mide lo 
que pretende medir. La fiabilidad 
se refiere a obtener resultados se- 
mejantes aplicando la prueba en 
iguales condiciones para los suje- 
tos. Finalmente, la tipificación se 
refiere a una escala o baremo que 
permite interpretar el significado 
de los resultados. Para ello se pue- 
den tomar distintos criterios. 

El programa determina estas tres 
condiciones primordiales además 


M AS Ла ЧИНА 


de ofrecer otros datos que serán de 
gran interés para el profesor. 


Evaluación de una prueba 
tipo.test 


Las preguntas de una prueba 
tipo test se denominan items, y por 
lo general suelen ser pares. Cada 
item se compone, al menos, de dos 
respuestas posibles (RP). Para cada 
item: 

— Se considera acierto (A), can- 
do se contesta la/s respuesta/s co- 
rrecta/s. 

— Se considera nulo (N), cuan- 
do no se contesta. 


— Se considera error (E), en 
cualquier otro caso. 

Una vez hecho el recuento de 
aciertos, errores y nulos de cada 
sujeto se calculan los parámetros 
en base a dos clasificaciones: por 
sujeto y por ¡tems. 


POR SUJETO 
1.  Puntuabilidad (P). 
SESE 
TT 


2. Puntuabilidad tipificada o ti- 
pificación (Z). 


Pi = Puntuabilidad del sujeto. 


P = Puntuabilidad media = ХР і 


ор = Desviación típica de las рип- 
tuabilidades. 


_ X Pi- PP 
5 N 


N = №. total de sujetos. 


ар 


O>REM 
СОТО 


% % Juan Carlos Foez. Romero 
ТЕА 17/9/19 
И 
* 
1 REM РАКА GRABAR EL PROGRAMA 
AUSA : SAVE "nombre" LINE 10 
ODO 
10 PAPER 1: INK 7. FLASH д: BR 
IGHT O: OVER 0: INVERSE 0: BORDE 
кі: CLS 
20 PRINT ' INK b; INVERSE 15" 
PEDAGOGIA 2 
зо PRINT ат 10, EVALUACION 
DE UNA "зат 12,125" PRUEBA "¡AT 
14,111" TIPO TEST " 
40 FOR F=19 TO 21: PRINT АТ F, 
0: PAPER 
s NEXT F 


50 PRINT АТ 20,4; 
O; BRIGHT 1; OVER 1:" 
AD Y VALIDEZ " 


PAPER 3; INK 
FIABILID 


60 РОКЕ 23658,8: POKE 23609, 
70 PAUSE 500 
BO LET D=65536-USR 7962 
90 ТЕ D<15000 THEN 60 TO 5000 
100 CLS 
110 PRINT " QUIERES CARGAR DATO 
5; ANER 
115 FOR F=0 TO 50: NEXT F 


THEN бо ТО 9 


120 IF INKEYS$= 
aso 

130 IF INKSY$="N" 
000 

140 60 TO 120 
1000 REM жж ENTRADA DE DATOS жа 
1005 FAFER 1: INK 7: BORDER 1: С 
Ls 

1010 LET 2-0 
1015 FRINT ат 


THEN 60 TO 1 


2,5;"No. DE SUJETO 


1020 INPUT "Introduce el No. 
SUJETOS “; LINE 1%: LET 
1025 GO SUB 1155; IF D=1 THEN б 
8 то 1020 

1020 PRINT VAL тез" 

1035 50 SUB 1145; IF 0=1 THEN 6 
0 то 1045 

1040 GO то 1010 

1050 LET S=VAL I$ 
1060 PRINT АТ 3,5;"No. 


de 


DE ITEMS 


1065 INPUT "Introduce el No. de 
ITEMS "з LINE I$: LET ред 

1070 GO SUB 1138: IF D=1 THEN G 
0 ТО 1065 

1072 GO SUB 9900 

1073 IF 2-1 THEN PRINT AT 20,0; 
INVERSE 1;" MAXIMO = "Hp" “зат 
3,22: GO ТО 1065 

1075 IF VAL 18>H THEN CLS : 60 

TO 1000 

1080 PRINT VAL Isi" " 

1085 БӘ SUE 1145: IF Del THEN © 
0 TO 1095 

1090 60 TO 1060 

1095 LET I=VAL I$ 

1095 PRINT AT 20,03% 


1100 PRINT AT 4,0; "RESP. 
R ITEM = *; 

1105 INPUT "Introduce el No. de 
respuestas posibles en cada 1ТЕ 
M "з LINE I$: LET D=0 

1110 GO SUB 1135: IF 0=1 THEN б 
9 то 1105 

1115 PRINT VAL I$" " 

1120 GO SUB 1145; IF D=1 THEN G 
9 TO 1130 

1125 60 TO 1100, 

1150 IF VAL 1%<2 THEN 60 ТО 110 
° 


ров. РО 


1132 LET RP=VAL I$ 
1133 GO TO 1170 
1135 IF CODE 1850 THEN LET D=l: 
RETURN 
1137 FOR F=1 TO LEN 19: IF CODE 
1$(F)<48 OR CODE 1%(Ғ) 257 THEN 
LET Баі: RETURN 
1138 NEXT F 
1139 IF D=0 THEN IF VAL 1542 TH 
EN LET зі: RETURN 
1140 RETUFN 
1145 POKE 25058,8: PRINT #О;" ES 
CORRECTO S/N ? " 
1147 IF INKEY$="N" THEN RETURN 
1149 IF INKEYS="S" THEN LET D=1 
1 RETURN 
1150 GO TO 1147 
1162 КЕМ аж DIM. 
1170 DIM I(S,D 
1171 DIM A(S): DIM E(S): DIM N(S 
): рім P(S): DIM 7(S): DIM Х(9): 
DIM V(S): DIM Y(S): DIM W(S»: D 
ІМ S(S): DIM 0(S): DIM R(S): DIM 
М(8): DIM T(S): DIM H(SF): DIM 
L(SF): DIM B(I): DIM C(I): DIM J 
(I): DIM K(I): DIM O(I) 
1172 IF D=2 THEN GO TO 1180 
1175 IF D=9450 THEN БО TO 1510 
1174 REM **ENTRADA RESPUESTAS жж 
1175 LET U=1: LET H=S 
1180 FOR F=18 TO 20: PRINT AT F, 
0; PAPER 3" 
"і NEXT F 

1185 INPUT PAPER 5; INK l;"REFE 
RENCIA DE LOS DATOS?(18 max)"; L 
INE R$: IF LEN R$>18 THEN 60 то 
1185 
1186 IF CODE R$=0 THEN LET R$=" 

Sin Referencia " 
1187 PRINT AT 20,0; PAPER 5; INK 
1;" REFERENCIA DE LOS DATOS : 


VARIABLES жк 


Se aplica el baremo elegido a la 
Z. Uno de los criterios más usuales 
eselsiguiente: 


Je 2 2 22 Sobresaliente/9, 10 
15<2<2 
Г<7<15 Notable/7, 8 
05 <2<1 Віеп/6 
0<2<0.5 Suficiente/S 
7<0 Suspenso/. 


3. Se dividen los items en pares 
e impares, formándose así dos 5е- 
ries, y se calcula la P y la Z en cada 
una de las series. 
Se obtendrá: 
Pi =Puntuación del sujeto en la 
serie impar. 
Pp=Puntuación del sujeto en la 
serie par. 
Zi =Puntuación tipificada del su- 
jeto en la serie impar. 
Zp = Puntuación tipificada del su- 
jeto en la serie par. 


Para calcular la fiabilidad, pri- 
mero se obtiene el coeficiente de 


correlación, con el que después ob- 
tener el coeficiente de fiabilidad. 

1. Se calcula el coeficiente de 
correlación (R). ` 


= Zi xZp) 
NA 


2. Cálculo del coeficiente de 
fiabilidad (CF). 
2xR 


CF= LR 


POR ITEMS 


En el caso de trabajar con clasifi- 
caciones por items, primero se ha- 


lla el 27 por ciento de sujetos con 
mayor puntuación y el 27 por 
ciento con menor puntuación. Y 
después se determinan para cada 
item los aciertos del 27 por ciento 
de S. con mayor puntuación, y del 
27 por ciento de S. con menor 
puntuación, Аз y Ai, respectiva- 
mente. 

Los índices que se dan para cada 
item son el de facilidad, discrimi- 
nación, discriminación máxima y 
de eficacia. 


Si no desea teclear el programa, 
disponemos de una copia en cassette 
al precio de 200 ptas. 


POR TELEFONO 


* más fácil, 
ж más cómodo, 
* más rápido 


Telf. (91) 7337969 
7 días por semana, 24 horas a su servicio 


SUSCRIBASE A 


"у PAPER 2; INK 7:89 
1188 POKE 23658,8 
1190 PRINT AT 5,0; PAPER 4; INK 
Oj BRIGHT 15" PULSA : "5 INVERSE 
1р" <A> "у INVERSE O;" si es AC 
IERTO "ЈАТ 7,9; INVERSE 15" <Е> 
"š INVERSE Ор" зі es ERROR “¡AT 
9,9; INVERSE 1;" <N> "; INVERSE 
03" si es NULO " 
1200 FOR J=U TO H 
1210 PRINT AT 12,1; INVERSE 1;" 
SUJETO No. "343" " 
1220 FOR F=1 TO I 
1230 PRINT АТ 14,1; "ITEM No."jFi 


1240 PRINT АТ 18,12; PAPER З" 


1250 IF INKEYS="" THEN 60 ТО 12 
50 й 

1260 IF INKEYS="A" THEN LET I(J 
уБ) зі: LET I$="ACIERTO": GO TO 1 
295 

1270 IF INKEYS="E" THEN LET 1(2 
,F)=-1: LET I$="ERROR ": GO TO 
1295 

1280 IF INKEY$="N" THEN LET I(J 
(Ғ-оз LET Iê="NULO "í GO TO 4 
295 

1290 GO TO 1250 

1295 PRINT АТ 18,12; PAPER 8; IN 
K өрібі BEEF .3, (CODE 15)/3 
1300 NEXT F: NEXT J 

1505 IF 0-2 ТНЕМ GO TO 8720 
1310 PRINT ат 18,0; FLASH 1; РАР 
ЕК В;" PREPARA CAFE MIENTRAS CAL 
CULO " 

1320 FOR F=1 ТО 400: NEXT F 

1400 REM #%%%%®* PARAMETROS PERRE 
1410 PAPER б: INK О: BORDER б: С 


Ls 
1420 PRINT INVERSE із" РА 
RAMETROS x 


1430 PRINT AT 2,13" 8 = SUJETO"; 
AT 3,16y"I = ITEM";AT 4,1; "RP = 
RESP. POS.POR ITEM" 

1440 PRINT АТ 6,03 PAPER 5; INK 
ор BRIGHT 13" Р ав} L. 
IDAD "а PRINT '" A = Aci 
ertos,E=Errores,N=Nulos": PRINT 
* P = Puntuabilidad": PRINT " Z 
= Puntuabilidad TIPIFICADA" 

1445 PRINT '" R = Coeficiente de 
Correlacion": PRINT "CF = Coefi 
ciente de Fiabilidad 

1450 PRINT ` PAPER 5; INK О; BRI 
GHT 1; VALIDEZ 
PRINT '" І.Е. = Indice 
de Facilidad": PRINT " I.D. = I 
ndice de Discriminacion": PRINT 
*I.D.M = I.D. Maximo": PRINT " I 
«E. = Indice de Eficacia" 

1500 REM #83% CALC. PUNT. 4%4%% 
1510 LET J=0 

1520 LET J=J+1: LET F=0 

1550 LET F=F+1 

1540 IF I(J,F)=1 THEN LET A(J)= 
абі 

1550 IF I(J,F)=-1 THEN LET E(D) 
=E(J)+1 

1560 IF I(J,F)=0 THEN LET N(J)= 
Ni 

1570 IF 2-8 THEN IF Баі THEN L 
ЕТ 2-0: 60 TO 1710 

1580 IF F=I THEN 6O TO 1520 
1590 GO ТО 1550 

1710 LET J=J+1 

1720 LET P(J)=A(J)-(E(J)/(RP-1)) 
1730 IF 2-8 THEN LET 20; 60 ТО 
2010 

1735 GO то 1710 

2000 REM Жж CALC. DE Z зж 

2010 LET PRM=0: LET DIF=0 

2020 LET J=J+1 

2050 LET PRMSPRM+P (J) 

2055 IF J=S THEN LET 2-0: 60 TO 
2050 


2040 во TO 2020 

2050 LET PUM=PRM/S 

2070 LET J=J+1 

2080 LET DIF=DIF+ ((F (3) -РОМ) ¥ (P ( 
J)-FUM)) 

2085 IF J=S THEN LET 2-0: GO TO 
2210 

2090 60 TO 2070 

2210 (ЕТ SIGMA=SQR (DIF/S) 

2215 IF SIGMA=0 THEN LET SIGMA= 
16-33 

2220 LET J=J+1 

2230 (ЕТ Z(J)=(P(J)-PUM)/SIGMA 
2235 IF 2-8 THEN LET J=0: GO TO 
3050 

2240 GO TO 2220 

5000 REM kk CALC. PUNT. ЗЕВ1ЕЗ&# 
3050 LET J=J+1: LET F=-1 

3060 LET F=F+2; IF F>I THEN GO 
то 3095 

3070 IF I(J,F)=1 THEN LET X(J)= 
ха. 

5080 IF 1(0,Ғ)--і THEN LET Ұ(0) 
ауэ 

3090 IF I(J,F)=O THEN LET S(J)= 
53+1 

3095 IF J=S THEN IF F>=1 
LET 2-0: 60 ТО 3120 

3100 IF F>=I THEN GO TO 3050 
3105 GO то 2060 

3120 LET J=J+1: LET Баб 

3125 LET F=F+2: IF ЕІ THEN GO 
то 3150 

3130 IF I(J,F)=1 THEN LET М (8) 
ViJ +t 

3140 IF I(J,F)=-1 THEN LET W(J) 
= (3+1 

3150 IF J=S THEN IF F>=I THEN 
LET 2-0: GO TO 5250 

3155 IF рэзі THEN 60 TO 3120 
3140 GO TO 3125 

3250 LET J=3+1 

3240 LET Q(J)=xX(J)-(Y(J)/(RP-1)) 
3250 LET R(J)=V(J)-(W(J)/ (RP-1)) 
3260 IF J=S THEN LET J=0: GO TO 
зазо 

3265 ба то 5250 

5400 REM t** CALC. Z SERIES заказ 
3430 LET PRQ=0: LET PRR=0: LET D 
1500; LET DIFR=0 

3440 LET J=J+1 

3450 LET PRQO=PR0+0(J): LET PRR=P 
RRR (J) 

3460 IF J=S THEN LET 2-0: GO TO 
3500 

3470 во то 3440 

3500 LET PUMQ=PR0/S: LET PUMR=PR 
R/S 

3510 LET J=J+1 

3520 LET DIFO=DIFQ+((0(J)-PUMO) 3 
(0(3) PUM) > 

3530 LET DIFR=DIFR+((R(J)-PUMR) $ 
(R(J)-PUMR)) 

3540 IF 2-8 THEN LET 2-0: GO TO 
3610 

3545 60 TO 3510 

3610 LET SIGI=SOR (DIFO/S): LET 
SIGP=S0R (DIFR/S) 


THEN 


3620 IF SIGI=0 THEN LET SIGI=1E 
== 

3630 IF SIGP=0 THEN LET SIGP=1E 
-33 

3640 LET J=J+1 

3660 LET M(J)=(0(J)-PUMG) /SIGI: 
LET T(J)=(R(J)-FUMR)/SIGP 

2670 IF J=S THEN LET 2-0: GO TO 
3840 

3675 60 TO 3640 

3800 REM хх CALC. COEF. CORR. яж 
3840 LET PCC=0 

3850 LET J=J+1 

5850 LET PCC=PCC+(M (J) #T 3)) 
2865 IF J=S THEN GO TO 3880 
3870 во TO 5850 

3880 LET R=PCC/S 

3095 IF R=-1 THEN LET CF=-1E36: 
60 TO 4000 

2890 (ЕТ CF=(24R)/(1+R) 

4000 КЕМ %% ORDENA PUNTUAB. яж 
4010 DIM F(S): DIM G(S) 

4020 FOR J=1 ТО S: LET F(J)=P(J) 
з NEXT J 

4030 LET 2-1: LET С=О 

4040 IF F(J)<F(J+1) THEN LET D= 
FJ): LET ЕЈ) Е (3+1): LET F(J+1 
)=D: LET C=C+1 

4050 LET J=J+1 

4055 IF J=S ТНЕМ IF С=О THEN L 
ЕТ 2-0: 60 TO 4085 

4050 IF 2-8 THEN GO TO 4050 
4070 во TO 4040 

4085 LET J=J+1: LET F=0 

3090 LET F=F+1 

4100 IF F(J)=P(F) THEN 60 TO 41 

зо 

4101 GO то 4105 

4102 LET G(J)=F 

4105 IF 2-8 THEN ІР F=S THEN G 

о то 4150 

4110 IF Ғ=5 THEN 6O TO 4085 
4120 60 то 4090 

4130 FOR K=1 ТО 2-1: IF G(K)=F T 

НЕМ 60 то 4105 

4140 NEXT K: 60 TO 4102 

4150 REM 127% S.con М.у m.PUNT.* 
4160 FOR J=1 TO SF; LET H(J)=G(J 
): NEXT J 

2165 LET К=1 

4170 FOR J=S TO S-SF+1 ӨТЕР =1: 

LET L(K)=6(J): LET Кекті: NEXT J 

4300 REM ха CALC. IND. VAL. Ak 

4310 DIM Е(1): DIM ӨСІ» 

4220 LET F=0 

4325 LET F=F+1: LET Кеб 

4550 LET K=K+1 

4340 IF (I(H(K),F)=1) THEN LET 
B(F)=B(F)+1 

4350 IF (I(L(K),F)=1) THEN LET 

С(Е)=С(Е)+1 

4353 IF I(H(K),F)=-1 THEN LET O 
(F) =0 (F) +1 

4306 IF I(L(K),F)=-1 THEN LET O 
(F)=0(F)+1 

4360 IF Е=1 THEN IF K=SF THEN 

LET F=0: GO ТО 4380 

4365 IF K=SF THEN GO TO 4525 

4370 GO TO 4330 

4380 LET F=F+1 

4390 LET F(F)=SOs(B(F)+C(F))/SF 

4400 СЕТ G(F)=SO*(B(F)-C(F))/SF 

4410 LET J(F)=28F (F) 

4420 IF J(F)=O THEN LET K(F)=1E 

33: 60 то 4435 

4430 LET K(F)=G(F)/J(F) 

4435 IF F=I THEN GO TO 5010 

4440 GO TO 4580 

5000 REM жк MENU за 

PRINCIPAL Ж 

$ ретту етте 

5010 роке 23658,8 

5020 INK 7: BRIGHT O: PAPER 1: B 

ORDER 1: CLS 

5030 FOR F=0 TO 2: PRINT АТ Ғ,0% 
PAPER 25" 


NEXT F 

5040 PRINT АТ 1,0; PAPER 7; INK 
2" MENU PRINCIPA 
(2807 

5050 PRINT '' ІМК 5; INVERSE 1;" 
REFERENCIA : "з: PRINT PAPER 2 
зе 

5060 PRINT АТ 7,0; BRIGHT 1; INK 
ы" 1.- "5 PAPER 45 INK Оу" MEN 
U de Tablas “ 

5070 PRINT ат 9,0; BRIGHT 1; INK 
Ф" 2.- "р PAPER 4; INK O;" Coe 
ficientes de Fiabilidad" 

3080 PRINT AT 11,0; BRIGHT 1; IN 
K és" 3.- "у PAPER 45 INK 05" In 
dices de Validez 

5090 PRINT АТ 15,0; BRIGHT 1; IN 
Көҙ" 4.- "; PAPER 4; INK 03" Ca 
mbiar Datos E 

5100 PRINT АТ 15,0; BRIGHT 1; IN 
K ы" S.- “з PAPER 4; INK 05" Gr 
abar Datos 

5110 PRINT AT 17,0; BRIGHT 1; IN 
K б" 6.- "y PAPER 43 INK 05" Ca 
rgar Datos Ж 

5120 PRINT АТ 19,0; BRIGHT 1; ІМ 
Ké" 7 PAPER 4; INK 03" Re 
inicio y 

5130 PRINT АТ 21,0; BRIGHT 1) IN 


K 63" 8.- "т PAPER 4) INK Oi" Sa , 


lida de Programa 

5140 PRINT #0; BRIGHT 1: INK 63" 
Pulsa tu opcion 

5145 POKE 25560,0: BEEP .15,0: В 

EEP ,3,18 

5150 LET Ј-РЕЕК 235601 IF 2-0 TH 

EN 60 TO 5150 

5160 IF J449 OR J>Së THEN GO то 

5150 

5170 LET I$=CHR$ J 

5180 роке 25560,0 

5182 PRINT АТ 2%(J-48)+5,0; INK 

63 OVER 1; FLASH 1;" "3 INVE 

RSE i; BRIGHT 1; INK 4;" 


5184 FOR J=0 TO 2: BEEP .2,0: РА 
USE 20: NEXT J 
5190 IF I$="1" THEN CLS: GO TO 


THEN CLS: PRINT 
DATOS SER 
AN DESTRUIDOS “: LET U=72: LET C 
=20: LET K=8: GO TO 9850: RUN 10 


AT 3,3; FLASH 1;" EL PROGRAMA S 
ERA DESTRUIDO ": LET U=76: LET С 
=20: LET К=8: GO TO 9850: NEW 
5200 во TO 7000+ (VAL I$) #400 


5500 REM 34 M E N U ж 
ре TABLASAK 
ТТТ 

5510 PAPER 1: INK 7: BORDER 1: C 

Ls 

5520 FOR F=0 TO 2: PRINT АТ Р,О: 

PAPER 73" 
: NEXT F 
5520 PRINT АТ 1,0; PAPER 2; INK 
MENU DE TABLAS 

5540 PRINT АТ 4,0; РАРЕК é; INK 

Оз" 1.- "j PAPER 4;" Tabla de Re 

spuestas 

5550 PRINT АТ 6,0; PAPER 6; INK 

оз" 2. PAPER 4)" Tabla de Pu 

ntuabilidad  " 

5570 PRINT AT 8.0; PAPER 6; INK 

ЕТЕ 3.- "1 PAPER 4;" Tabla de la 

= 

5580 PRINT ат 10,05 PAPER 3; INK 

9; BRIGHT 1;"POR SERIES DE ITEM 

S (IMPAR Y PAR)" 

5590 PRINT AT 12,0; PAPER 6; INK 

0%" 4.- "y PAPER 4;" Tabla de R 
espuestas " 

5600 PRINT АТ 14,0; PAPER 6; імк 


Esir 
puntuabi tidad а 20.33: 


jnt. MEDIA = 24.693333 
SUSPENSO, 


0.333333. Pp=10 

mi=12.54 pup s12. 053322 
5 Шм 
052852041 189454 522522 


Ор" 5.- "y PAPER 4)" Tabla de P 

untuabilidad 0” 

5610 PRINT АТ 16,03 PAPER ёр INK 
Ор" 6.- ": PAPER 4:" Tabla de 1 

as Z ° 

5620 PRINT АТ 18,0; PAPER 6; INK 
Ор" 7.- "р PAPER S" LISTA 

pos 

5630 PRINT ат 20,0; PAPER 65 INK 
Оз" 8.- “; PAPER SI" MENU Р 
RINCIPAL" 

5635 BEEP .3,10 

5640 PRINT жО; INK b; BRIGHT 13% 

Pulsa tu opcion 

5650 LET J=PEEK 23560: IF J=0 TH 

EN GO TO 5650 

5660 IF 3<38 OR J%56 THEN GO TO 
5450 

5670 (ЕТ I$=CHR$ J 

5680 IF I$="B" THEN ВЕЕР .2,0% 

CLS + 60 TO 5030 

5690 IF 18:97" AND I$<>"8" THEN 
OPEN #-5,"8": LET RUTA=S 

5695 ВЕЕР .1,18: BEEP .3,0 

5700 БО TO 6000+ (VAL 1%) ¥100 

4100 REM ЯЖ Т. DE A.,E.,N. яж 

8110 PAPER 3: BORDER 3: CLS : PR 

INT RUTA; PAPER é; INK Oj“ TABL 

A-DE- ACIERTOS, ERRORES, NULOS" 

6115 LET D=6110: LET U=252: LET 

с-25 

6120 FOR 2-1 TO 8 

6125 роке 23692,-1 

6130 PRINT #RUTA: PRINT #RUTA; I 

NVERSE 1;" SUJETO No."iJi PAPER 

2; ІМК 7ітав 14;"A=";A(J);TAB 20 

ЧЕ") Е(0):ТАВ 26;"N=";N(J); TAB 

Šu" 

6135 60 то 9810 

6140 NEXT J 

6160 60 TO 9700 

8200 REM ЖкЖЖЖ Т. DE PUNT. EKK 

6210 PAPER 3: BORDER 3: CLS : PR 

INT #RUTA: PAPER 5; INK Op" Р 

UNTUABILIDAD " 

6215 LET 026210: LET 0995; LET C 

=24 

6220 FOR J=1 TO S 

6225 роке 25692,1 

6250 PRINT # RUTA: PRINT WRUTA; I 

NVERSE 13 "SUJETO No. "; J, PAPER 2 

з ІМК 75"P -СӘРООҘТАВ 313" " 

8255 GO TO 9810 

6240 NEXT J 

6260 GO TO 9700 

6300 REM #%%%#* T. DE Z KEXEN 

6310 PAPER 3: BORDER-3: CLS : PR 

INT #RUTA: PRINT #RUTA;" PUNTUAR 

ILIDAD MEDIA = “Рум 

6315 LET D=6310: LET U=226: LET 

C=24 

6320 PRINT #RUTA: PRINT КОТА; " 

DESVIACION TIPICA = "¿SIGMA 

8550 PRINT #RUTA: PRINT #RUTA; P 

APER é; INK Op" TABLA DE 

Las 2 * 

6340 FOR 12-1 TO S 


6345 роке 23692,-1 
6550 PRINT #RUTA: PRINT #RUTA; I 


NVERSE- 13" SUJETO No. ";J, PAPER 
2; INK 7;"Z = "¿INT (Z(J)R1EB)/1 
Евітав 31;" " 

6360 GO TO 9810 

6370 NEXT J 


6380 60 ТО 9700 
4400 REM #T.DE A.,E.,N. SERIES 
6410 PAPER 3: BORDER 3: CLS : PR 
INT #RUTA; PAPER é; INK О;" TABL 
A DE ACIERTOS, ERRORES, NULOS 

DE LAS SERIES DE ITEMS x 
6415 LET 0=6410: LET U=60: LET C 
=25 

6420 PRINT wRUTA: PRINT #RUTA; I 
NVERSE 1; "SUJETO": PRINT #RUTA; 
INVERSE 1; "Мо. "; INVERSE O;TAB 7 
з INVERSE 1; PAPER 2;" IMPAR “: 
INVERSE 0; PAPER 3;TAB 21; INVER 
SE 1; PAPER 2)" PAR " 

6430 FOR 3-і TO S 

4435 POKE 23692, 
6440 PRINT #RUTA: PRINT #RUTA; I 
NVERSE 1; J; INVERSE Op" "j INVER 
SE 1; PAPER 2; INK 7;TAB 3; "A="; 
X(DITAB Ву "E="; ¥ (3); TAB 13; "N=" 
3812); INVERSE 0;ТАВ 18; INVERSE 
13 "A=" зу (1) TAB 23; "Е="}Н(2);ТА 
в 28;:"N=")N(J)-8(J) 

6450 60 TO 9810 

6440 NEXT J 

6470 бо ТО 9700 

6500 КЕМ зк Т.Е PUNT. SERIES 4% 
8510 PAPER 3: BORDER 3: CLS : PR 
ІМТ #RUTA; PAPER 6; INK Oj" P 
UNTUABILIDAD 

DE LAS SERIES DE ITEMS ” 
8515 LET D=6510: LET U=160: LET 
С=25 

4520 PRINT.#RUTA: PRINT #RUTA: P 
RINT #RUTA; INVERSE 1;" SUJETO М 
а. "і INVERSE Ор" "у INVERSE 1; 
PAPER 2; INK 7;" IMPAR "; INVERS 
E 0; PAPER 3;" "y INVERSE 1; 
INK 7; PAPER 24" PAR " 

6530 FOR J=1 TO S 

6535 POKE 23692,-1 

6540 PRINT #RUTA: PRINT #RUTA; I 
NVERSE 1:" "12; PAPER 2; INK 7;T 
АВ 12:"Pi="} INT (0(3) #1E3)/1E3;T 
ав 22;"Рр=";1МТ (R(J)#1E3)/1E3;T 
AB зі" " 

6550 GO TO 9810 

8560 NEXT J 

6570 60 TO 9700 

6600 REM ЖКЖ Т. DE Z SERIES #%%% 
6610 PAPER 3: BORDER 3: CLS : PR 
INT #RUTA: PRINT *RUTA;"PUNTUAB. 
MEDIA (I)= ";PUMG 

6615 LET 0=6610: LET U=24: LET С 


=26 
6620 PRINT #RUTA: PRINT #RUTA; "P 
UNTUAB. MEDIA (P)= "ұғым 


6630 PRINT wRUTA: PRINT #RUTA; "D 
ESVIACION TIPICA (I)=";SIGI 
6640 PRINT #RUTA: PRINT #RUTI 
ESVIACION TIPICA (P)=";SIGP 
6650 FRINT #RUTA: PRINT #RUTA; P 
APER 6; INK О;" TABLA DE LAS Z 

(IMPAR Y PAR) “: PRINT #RUTA 

6660 PRINT #RUTA; INVERSE 1; “SUJ 


“D 


ЕТО No."; INVERSE 05" "; INVER 
SE 1; PAPER 2; ІМК 7;" IMPAR "з 
INVERSE 0; PAPER 24" "у INVER 


SE 1; PAPER 2; INK 7;" PAR " 
6665 FOR J=1 TO. S 
6655 POKE 23692, 
6667 PRINT #RUTA: PRINT #RUTA; І 
NVERSE 15% “1; PAPER 2; INK 7;T 
АВ 12;"Zi="sINT _(M(J) #1E3)/1E3;T 
AB 22;"Zp="; INT (T(J) #1E3)/1E3;T 
АВ Зір" " 

6670 GO ТО 9810 

6680 NEXT J 

6490 GO ТО 9700 

6700 REM кк LISTADOS аҥ 


8710 PAPER 5: INK 7: BORDER 5: С 


Ls 
8720 PRINT PAPER b; INK 03% 
STARR ТТАР? ¡QUES е 


6750 PRINT АТ 5,01" Listado por 

SUJETO "; FLASH 1;"< S >"; FLASH 

ОАТ 7,03" Listado por ITEM " 

з INVERSE 1; FLASH 1;"< І >";WO; 

FLASH Oi" <M>= MEN 

и” 

6740 IF INKEY$="S" THEN GD TO b 

770 

6745 IF INKEY$= 

510 

8750 IF INKEY$="I" THEN 50 TO b 

900 

4760 бо TO 6740 

4770 PRINT AT 3,3,"27% de Sujeto 

s = "веі" “з FLASH 14">"; FLAS 

Н O;AT 5,19;"(1-";S;") "зат 7,0) 

PAPER 2;" Desde el SUJETO No. 
“4 LET С=6795 

6780 INPUT LINE 1% 

8785 50 SUB 1155: IF D=1 THEN L 

ЕТ D=2: 60 TO 6780 

4790 GO TO С 

8795 LET U=VAL 18: PRINT AT 7,22 

з PAPER 2; BRIGHT 150: IF U>S OR 

Ч<1 THEN БО TO 6770 

6800 PRINT АТ 9,0; PAPER 2;" Has 

ta el SUJETO No. "їз LET C=b 

воз: Өй TO 6780 

6805 LET H=VAL I$: PRINT ат 9,22 

з PAPER 2; BRIGHT 1;Н: IF H>S OR 

нсі THEN GO TO 6800 

«808 LET D=6835 

8810 IF H<U THEN БО ТО 6700 

6815 POKE 25658,8 

6814 FOR Ғ=15 TO 21: PRINT АТ F, 

Oj PAPER 1; BRIGHT 11" 


" THEN GO TO 5 


NEXT F 
4815 PRINT AT 15,7; PAPER 4; ІМК 
О; BRIGHT 13" COMANDOS" 
4820 PRINT AT 16,0; PAPER 8; INK 
6з" < A > para Adelante 


6822 PRINT ' PAPER B; INK 63" < 
E > para Atras с 
6824 PRINT ” PAPER B; INK 63" < 
М > para volver аі MENU " 
6826 PRINT #0; INK Oj" Pu 
1за una tecla 8 

6828 IF INKEYS="" THEN GO TO é8 
28 

ёвзо Go то р 

4835 PAPER 1: BORDER 1: FOR J=U 
тан 

8840 CLS : PRINT АТ 0,8; INVERSE 
15" SUJETO Na. "33" " 

6845 PRINT '" А=";А(2);" 


"y "E="yE(J);" ШЫ 
D 

ёва? PRINT >" Puntuabilidad = “і 
Pap" "s 

8849 PRINT '" Punt. MEDIA = "РО 


м 
6851 PRINȚ *" Z = "3262 
6852 PRINT АТ 8,175: LET 0=2 01): 
50 SUE 6855: GO ТО 6865 


&85з IF 040 THEN PRINT INVERSE 
1; INK 2; PAPER 7;” SUSPENSO 
&855 IF 02=0 AND 0<.5 THEN PRIN 
T INVERSE 1; INK 5 APROBAD 


бе, 

6857 IF D>=.5 AND D<1 THEN PRIN 

T INVERSE 1; INK S;" BIEN", 

6059 IF D>=1 AND D<2 THEN PRINT 
INVERSE 1; INK 5;" NOTABLE" 


6861 IF D>=2 AND D<2.5 THEN PRI 
NT INVERSE 1; INK 5;" SOBRESALI 
ENTE", 

é863 IF 02.5 THEN PRINT PAPER 
63 INK 03" SOBRESALIENTE", 

6864 RETURN 

4865 FRINT ' PAPER 3; INK О; BRI 


GHT 1; "POR SERIES DE ITEMS (IMPAR 
Y PAR)" 

6868 PRINT "Ai="; X (J), "Ap="; (2) 
6869 PRINT "Ei="IY(J),"Ep=")W(J) 
6870 PRINT "Ni=";S(J),"Np="iN(J) 
-860› 5 

6873 PRINT '"Pi=";G(J),"Pp=";F(J 
PAG 

6876 PRINT *"Pmi="; PUMO, "Pmp=";F 
UMR 

6879 PRINT *"Zi=";M(D) , "Zp="; T(J 
Й 

6880 LET D=M(J): GO SUB 6853: LE 
T D=T(J): GO SUB 4853 

6882 PRINT АТ 21,03: FOR K=1 TO 
SF: IF H(K)=J THEN PRINT PAPER 
7; INK 2;" Sujeto "; INVERSE 1; 
* "Ka"; INVERSE 03" con Mayor 
Puntuab."; TAB 13" " 

6883 POKE 23692,-1 

6885 IF L(K)=J THEN PRINT PAPE 
R 7; INK 2)" Sujeto “з INVERSE 1 
з" "jKg "mo; INVERSE Оз" con Meno 
г Puntuab. "¡TAB 313% " 

6888 NEXT K: IF SCREENS (21,1)<> 
"S" THEN PRINT AT 21,0; PAPER 7 
INK 2 SIN COMENTARIO 
TAB зіі" " 

6890 ВЕЕР .2,10 

6891 PRINT #0; PAPER 4; INK Ó; В 
RIGHT 1;"Pulsa un COMANDO o "j I 
NVERSE 1;°<С>"; INVERSE О;" para 
copy" 

6894 IF INKEYS="11" THEN бо TO 5 
sio 

8895 IF INKEYS="A" AND (J>=H) TH 
ЕМ PRINT #0; FLASH 1;" F I N 
DEL LISTADO " FOR F= 
1 TO 50: NEXT F: GO TO 6700 

6896 IF INKEYS="B" AND (020) THE 
N LET J=J-1: GO TO 6840 

6897 IF INKEYS="A" AND ЈН THEN 
NEXT J 

6898 IF INKEY$="C" THEN СОРУ 
4899 GO TO 6894 

6900 REM жж LISTADO POR ITEMSAX 
4910 PRINT АТ 5,044 _ 27% de Su; 
etos = ";SF;" "AT 7,19% 40-1 
ыт, 

8915 PRINT АТ 9,0; PAPER 2:" D 
de el ITEM No. "а LET C=693 
6920 INPUT LINE I$ 

4925 GO SUB 1135: IF D=1 THEN L 
ЕТ D=2: GO TO 6920 

5930 GO TO C 

4935 LET U=VAL I$: PRINT AT 9,20 
3 PAPER 2; BRIGHT 1:0: IF U>I OR 
усі THEN бо то 6910 

6940 PRINT АТ 11,0; PAPER 23" На 
sta el ITEM No. “і LET С=69 
45: во то 6920 

6745 LET H=VAL I$: PRINT АТ 11,2 
0; PAPER 2; BRIGHT 1;H: IF H>I O 
R H<1 THEN 60 то 6940 

8950 LET D=6960: POKE 23658,8 
8955 60 TO 6810 > 

8980 PAPER 1: BORDER 1: FOR F=U 


тон 
6970 CLS : PRINT INVERSE 1;ТАВ 
315" "ТАТ 0,11; PAPER 8; "ITEM No 


на 
8972 FOR K=1 ТО 3: PRINT PAPER 
S;TAB 315 ": NEXT K: FOR K=1 то 
J: PRINT PAPER 6;TAB 313" "; N 
EXT K: FOR K=1 TO 3: PRINT PAPE 
R зутав 314" "з NEXT K 
6973 PRINT АТ 10,0;: FOR K=1 TO 
b: PRINT PAPER 4;TAB 315" ": NE 
ХТ K: FOR K=1 TO 6: PRINT PAPER 
2: TAB зіі" "; NEXT Кі PRINT АТ 
1,05 
6974 PRINT PAPER 8; INK O;"Acie 
rtos del 27% de Sujetos con Mayo 
r Puntuabilidad = ":B(F);" = As 
“: PRINT ІМК S; BRIGHT l;"Suj.N 
0.31 FOR K=1 TO SF: IF I(H(K),F 
)=1 THEN PRINT INK 5; BRIGHT 1 
F", "HOG 
6975 NEXT K 
6976 PRINT ' PAPER 8; INK 15"Aci 
ertos del 27% de Sujetos con Men 
or Puntuabilidad = "¿C(F)3" = ñi 
INK 5; BRIGHT 1;"Suj. 
TO SF: IF тїк), 
F)=1 THEN PRINT INK 5; BRIGHT 
из"; 
6577 NEXT K: FRINT ` PAPER B;"Er 
rores del conjunto de Sujetos an 
teriores = ";O(F);" ": PRINT IN 
K S; BRIGHT 1;"Suj.No.";: FOR K= 
1 ТО SF: IF I(H(K),F)=-1 THEN Р 


RINT INK S; BRIGHT 13", "НЮ; 

4978 IF I(L(K),F)=-1 THEN PRINT 
INK 5; BRIGHT 15", "30р 

6979 NEXT K 

6980 PRINT '; PAPER 8; INK 03" І 

СЕ. = "Fg" Z" 

6982 PRINT PAPER 8; INK O;" I.D 


+ = "yG(F);" Ж" 
6984 PRINT PAPER B; ІМК O;" I.D 
М. = былғар X" 

6986 PRINT PAPER 8; INK Op" I.E 
аква" 

987 PRINT АТ 16,0; PAPER 8; "Асе 
rtaron:";: FOR 151 TO S: IF 160, 
Е)=1 THEN PRINT PAPER 8;J;","3 
6988 NEXT J: PRINT CHR$ 8; PAPER 
"ұт PRINT PAPER 8;" Erraro 
FOR 1-1 TO S: IF I(J,F)=-1 
THEN PRINT PAPER 8;J;","3 

6989 NEXT J: PRINT CHRE 8; PAPER 
"yx PRINT PAPER 8;" Hicier 
on Nulos:";: FOR 2-1 ТО S: POKE 
23692,-1: IF 1(J,F)=0 THEN PRIN 
T PAPER Bids", "3 

6990 NEXT J: PRINT CHRS 8; PAPER 
8;".": BEEP .2,10 

6991 PRINT #0; PAPER 4; INK O; В 
RIGHT 1;"Pulsa un COMANDO о "; I 
NVERSE 1:"<C>"; INVERSE 0;" para 
copy” 

6992 IF INKEY$="M" THEN GO TO 5 
510 

6994 IF INKEYS: 
6995 IF INKEYS: 
EN PRINTR О; FLASH 13% F I N 
DEL LISTADO “: FOR F= 
1 TO SO: NEXT F: GO TO 6700 
6996 IF 1МКЕҮ®="В" AND (ҒУЫ) THE 
N LET Ғ-Ғ-1: 60 ТО 6970 

6997 IF INKEY$="A" AND Ғ<Н THEN 
NEXT F 

6999 GO то 6992 

7600 REM **** CORR. Y FINE. ¥¥¥ 
7810 PAPER S: BORDER S: ІМК О: С 


С" THEN COPY 
AU AND (ғ>-н) TH 


LS : PRINT ' PAPER 65" СОЕҒІСІ 
ENTES DE FIABILIDAD 
7820 PRINT * INVERSE 15" СОЕҒІ 


CIENTE DE CORRELACION " 
7830 PRINT "Obtenido de los Coef 
icientes de Regresión LINEAL de 
las Series de Items par e impar 


No se caliente la CABEZA” | 
EIKOSH 


IMPRESORAS 


ESTOS SON NUESTROS MODELOS: 
Nuestra calidad es “SEIKO”; 


nuestros precios, únicos. Tipos de 
Si desea más información, Modelo | Velocidad | Columnas letra Interface РМР 
consulte соп nuestro distribuidor 
más cercano, o llame o escriba a: | GP-50 40 cps 46 2  |A-Paralelo А-25.900 
AS-Serial А5-29.900 
S-Spectrum S-28.900 
GP-500 50 cps 80 2 |A-Paralelo h A-47.900 
AS-Serial AS-49.900 
GP-550 86 cps 80-136 18 A-Paralelo A-59.900 
Dirección comercial: 
Av. Blasco Ibáñez, 114-116 GP-700 50 cps 80-106 3 |A-Paralelo A-89.900 
46022-Val 
Tol. (06) 372 88 89 BP-5200 | 200 cps 136-272 18 |Paralelo y serial 199.000 
Télex 62220 
Бы? ВР-5420 420 cps 136-272 18 |Рагаео y serial 299.000 
Delegación en Cataluña: 1-\ВМ РС 1:299.000 
С/ Muntaner, 60, 4, 1 
08011-Barcelona. Disponemos de interfaces opcionales para todos los modelos: ІВМ PC, COMMODORE 64, ZX 
Tel. (93) 323 32 19. SPECTRUM, ATARI, DRAGON 64, SHRAP MZ 700, SPECTRAVIDEO, NEW BRAIN, APPLE, ЕТС 


FIABILIDAD 


A = Aciertos, E=Errores,N=Nulos 
P = Puntuabiligad 
2 = Puntuabilidad TIPIFICADA 


R = Coeficiente de Correlacion 
CF = Coeficiente de Fiabilidad 


VALIDEZ 


Indice de Facilidad 
Indice de Discriminacion 
1.0. Maximo 

Indice de Eficacia 


> 
x 
ани 


7840 FOR F=B ТО 10: PRINT АТ Е,0 
} PAPER 43" 
“з NEXT F 

7850 PRINT АТ 9,8; PAPER 8;" R = 
ум 
7800 PRINT АТ 12,0; INVERSE 15" 

COEFICIENTE DE FIABILIDAD" 
7870 FOR Ғ-14 TO 16: PRINT АТ F, 
0; PAPER 45% 

"з NEXT F 

7880 PRINT AT 15,5; PAPER 8; 
F. = "СЕ" " 
7900 PRINT #0; PAPER 2; INK 7;"P 
ulsa:<C> рага COPY, <M>=M E N U " 
7910 IF INKEY$="" THEN 60 TO 79 
19 
7920 IF INKEYS="M" THEN GO TO 5 
900 
7930 IF INKEYS="C" THEN COPY 
7940 бо то 7910 
8200 REM ж#жж IND, DE VAL. айка 
8210 PAPER 1: BORDER 1: INK 7; С 
LS РЖІМТ PAPER b; INK О" N 
DICES DE VALIDEZ" 
8220 FOR F=12 TO 20: PRINT АТ F, 
0; PAPER 57% 


": NEXT F 
8250 PRINT AT 3,3; INK 73" No, D 
E SUJETOS = ";8;" "¿AT 5,33" No. 
DE ITEMS = "31у" “¿AT 7,0%"НЕ 


SPUESTAS POSIBLES POR ITEM= "¿RP 
8240 PRINT АТ 9,05 INK 65" Los I 
ndices de Validez se dan para 
cada Item y soni" 

8250 PRINT "*"I.F. = Indice de F 
ACILIDAD (я )" 

8260 PRINT "" 
КІМІМАСТОМ (%) 
8270 PRINT '"I.D.M. = 1.0. MAXIM 
0 ERAS 

8280 PRINT '"I.E. = Indice de EF 
ICACIA а 

8290 PRINT #0; ІМК 5; BRIGHT 1з" 

Pulsa una tecla 


D.=Indice de DISC 


8295 LET RUTA=5: OPEN #5, "8": LE 
Т D=8310: LET U=158; LET C=32 
8300 IF INKEYs="" THEN GD ТО B3 
00 с 
8210 PAPER 5: PAPER S: INK Оз BO 
RDER 5: CLS : PRINT #RUTA; PAPER 
&"INDICES DE VALID 
ЕТ“ 

8220 FOR F=1 TO I 
8325 РОКЕ 23692, 
8330 PRINT #RUTA: PRINT #RUTA; I 
NVERSE 1; BRIGHT 1;"ITEM No."jF: 
PRINT #RUTA; PAPER 2; INK 7;"I. 
F,="} INT (F (F0 #184) /1E4;" И": TAB 
18;"I.D.=";INT (G(F) #1E4) /1E4;T 
AB 314"4": PRINT #RUTA; PAPER 2; 
INK 7;"1.0.М.=";1МТ (J(F)*1E9)/ 
1Е4;" Z";TAB 18;"I.E.=";INT (K(F 
4184) /івазтав TI; " 


Og" CAMBIO DE 
5 


8340 во то 9810 
B350 NEXT F 

8360 GO то 9700 

8600 КЕМ ¥¥¥ CAMB. DE DATOS xk 
8810 CLS : РБІМТ” PAPER ©; INK 
DATO 
8615 LET Ш=167: LET C=33: LET K= 
5: 50 TO 9850: PRINT AT 5,3;" 


8620 PRINT AT 7,0; INVERSE 5 
UJETO No. 
8630 INFUT "Introduce el No. del 
(1-4 (віз) сач 
LET D=2 


8640 GO SUB, 1125: IF 0=1 THEN 5 
о та 8630 

8650 IF VAL I$>S OR VAL I$<1 THE 
N 60 TO 8630 

B660 PRINT INVERSE 1;AT 7,113VA 
L Iw" n р 

8670 GO SUB 1145: IF 0=1 ТНЕМ Б 
о то 8690 

вево ба то 8630 

8690 LET U=VAL I$: LET ней 

8710 PRINT AT 7,05% 

+ LET D=2: GO TO 1171 

8720 PFINT WO; PAPER ó; INK Оз" 
QUIERES CAMBIAR OTRO S/N ? `“ ' 


8730 FOR F=1 TO 50: NEXT F 
8740 IF INKEY$="S" THEN CLS : 5 
о то ваго 

8750 IF INKEY$="N" THEN GO TO 1 
310 

8760 60 то 8740 

9000 REM ##ж* GRABAR DATOS ххх 


9010 PAPER 2: INK 7: BORDER 2: С 
Ls 

9020 PRINT INVERSE 1)" 
BAR DATOS с 
9050 LET U=105: LET C=35: LET K= 
1: бо TO 9850 

9065 PRINT АТ 5,1298: SI" 
9070 DIM D(3): DIM U$(1,LEN R$) 
9080 RESTORE 9100: FOR F=1 TO 3: 
READ D: LET D(F)=D: NEXT F 
9090 LET U$(1)=R$ 

9100 DATA S,I,RP 

9110 PRINT AT 7,0; PAPER 5; INK 
оз" NOMBRE DEL FICHERO "; FLASH 
49474: PRINT AT 21,03" 10 LETRAS 
MAXIMO ": PRINT АТ 9,5% 

9120 INPUT LINE I$: IF CODE 19- 
O THEN GO TO 9120 

9121 IF LEN I$>10 THEN 60 то 91 
20 

9122 PRINT 
з INK 25" н 
9125 POKE 23658,8 
9150 SAVE 1% DATA D(): SAVE 1% D 
АТА US$ (0): SAVE I$ рата 10) 

9140 CLS 1 PRINT INVERSE 1;"G R 
авастам DE DATOS" 
FRINT AT 19,0; "QUIERES VERIFICA 
R LOS DATOS "; FLASH 1; "5S"; FLAS 
H O; "Z"; INVERSE 1; FLASH 1l;"N" 
9150 IF INKEY$="S" THEN 60 TO 9 
170 

9155 IF INKEY$=' 
о2о 

9160 60 TO 9150 
9170 PRINT АТ 10,27; INVERSE 15" 
в“ 


GRA 


INVERSE 1; 1$;AT 7,20 


THEN» GO TO з 


Organigrama 
de 
operación 


K wayaw 


F s sj 


Dn 


1 


Еа 


| 
| 
Í 


9180 PRINT АТ 12,0; "SI APARECIES 
E UN CODIGO DE ERROR DURANTE LA 
VERIFICACION, PULSA: "; INVERSE 
13" GOTO 5000" >“ 

9190 PRINT АТ 20,0; PAPER S; INK 
1:" SI HAS REBOBINADO LA CINTA 
' FON EN MARCHA EL CASSETTE 


“9200 VERIFY I$ DATA D(): VERIFY 


14 DATA U$(): VERIFY 1% DATA 11) 
9210 CLS : PRINT АТ 11,0; PAPER 


1; FLASH 1; 108 DATOS єз 
TAN PERFECTAMENTE 6 
RABADOS “а PAUSE 200 


9220 бо та 5020 
9400 REM яяяе CARGAR DATOS жж» 
9410 PAPER 4: INK О: BORDER 4: C 
Ls 

9420 PRINT INVERSE 1; BRIGHT 1; 
“CARGAR DATOS 
9440 LET U=234: 
1: 60 TO 9850 
9450 CLEAR : DIM Шв(1,18): DIM D 
(С 

9455 PRINT INVERSE 1; BRIGHT 1; 
" CARGAR DATOS 
PRINT AT 3,3 
9460 PRINT AT 7,0%" NOMBRE DEL F 
ICHERO "; FLASH 1;"?" 

8470 INPUT LINE I$: PRINT AT 7, 
214" "зат 9,2; INVERSE 1; BRIGHT 
13158 

9475 POKE 23658,8 

9480 PRINT AT 15,0; PAPER 1; INK 
7;"S1 APARECIESE UN CODIGO DE E 


LET C=36: LET K= 


RROR DURANTE LA CARGA , PULSA : 
"3 INVERSE 13" GOTO 9450 " 

9490 PRINT AT 21,4;"РОМ EN MARCH 

A EL CASSETTE" 

9500 LOAD I$ рата Dt): LOAD 1$ D 

ATA USO: LOAD I$ DATA 10) 

9510 CLS : PRINT AT 10,0; PAPER 

55 14073" CARGA CORR 

SE TA AA 

9520 LET S=D(1): LET I=D(2): LET 

RP=D (3): LET R$=U$ (1) 

9530 FAUSE 100 

9540 LET D=9450 

9550 60 SUB 9900 

9560 бб TO 1171 

9700 REM "SOPCION:MENU-IMPRES. x" 

9710 PRINT #0; BRIGHT 1; PAPER 4 

ФМК Ор"Ри1за:"; FLASH 1; "CMD"; 

FLASH 0; "="; PAPER зі" MENU "j; 

PAPER 4 INVERSE li FLASH 1; 

"<15"; FLASH 0; INVERSE O; "="; P 

APER 65" IMPRESORA " 

9720 IF INKEY$="M" AND D=8310 TH 

EN CLOSE ARUTA: GO TO 5010 

9730 IF INKEY$="M" AND D<>8310 T 

НЕМ CLOSE #RUTA: 60 TO 5510 

I" THEN LET RUT 

1 CLOSE #5: OPEN #4,"P"; GO T 


ор 
9750 60 TO 9729 

9800 КЕМ #808, ре PARADA EN Т.%*% 
9810 IF INKEYS="" THEN POKE 256 
18.U: POKE 23619,C: POKE 22520,1 
9815 BEEF ,5,0 

IF INKEY$="" THEN GO то 98 


9825 IF INKEYS="M" AND D=8310 TH 
ЕМ CLOSE #RUTA: GO TO 5010 


9830 IF INKEYS="M" AND D<>8310 T 
HEN CLOSE #RUTA: GO TO 5510 
9835 BEEF .5.0 

9840 РОКЕ 25518,Ш: POKE 22619,С: 
POKE 23620, 1 

9850 REM %%% SUB. DE VERIF. заж 
9860 PRIN 5,2%" CONTINUO 
FLASH 1;"S"; FLASH О;"/"; INVER 
SE 1; FLASH l;"N" 

9870 IF INKEY$="N" THEN 6O TO 5 
020 

7880 IF INKEYS="S" THEN POKE 23 
618,U: POKE 25619,С: POKE 23620, 
K 


9890 50 TO 9870 . 

9900 REM аж 27% DE SUJETOS жж 

9910 LET SR=27¥5/100: LET SE=INT 
(2745/100) 

9915 IF SR=SE THEN LET SF=SE: б 

о то 9925 

9920 LET SF=SE+1 

9925 IF D=9450 ТНЕМ RETURN 

9950 REM *SUB.DE LONG. VARIABLESA 

9955 LET U=65000- (PEEK 23627+256 

APEEK 23628) 

9940 IF VAL 1826 THEN GO TO 996 

° 

9945 LET H=INT ( (U-439-B0¥S-10%S 

Е)/(25%5%5)) 

9950 IF VAL I$>INT H THEN LET J 

=J+1: RETURN 

9955 LET 220; RETURN 

9969 LET H=INT ((0-429-70%6-1046 

Е)/(55+5%85)) 

9965 IF VAL I$>(INT H) THEN LET 
J=J+1: RETURN 

9979 LET 2-0: RETURN 


ба рэменя segun осон 
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Simulador da Imelo 


A estas alturas —nunca mejor 
dicho— seguro que ya dispone de 
un programa simulador de vuelo, o 
en el peor de los casos, estará exa- 
minando los distintos tipos de 
“vuelos” que se pueden realizar 
con su Spectrum. El programa que 
le ofrecemos tiene la particulari- 
dad de correr en el Spectrum de 16 
K, gracias a la separación de ins- 
trucciones en dos programas. El 
primero define los caracteres gráfi- 
cos e informa acerca de la utiliza- 
ción de su aparato. El segundo es 
el simulador propiamente dicho, 
que le permitirá llegar tan lejos 
como su imaginación le permita. 

Comienza el programa “еп el ai- 
re”, por lo que habrá de concentrar 
su atención en el aterrizaje. Ini- 
cialmente tomará tierra fácilmen- 


te, pero si es amante de las emocio- 
nes fuertes, el completo cuadro de 
control le dará la información pre- 
cisa en todo momento para contro- 
lar el avión... o intentarlo al me- 
nos. 

¿Quiere una ayudita? Relájese y 
desconecte dos motores, uno de 
cada lado del avión (de otra forma 
perdería estabilidad). Disminuya 
la altura a 100 metros, a una velo- 
cidad comprendida entre 301 y 
550 km/h. Cuando se encuentre a 
2 km. de la cabeza de pista, des- 
cienda a 30 m. y recorra 3 km. 
Después baje a 5 m. y recorra 2,5 
km. Una vez hecho esto, baje a 0 
m. y disminuya la velocidad pa- 
rando los motores. Si recordó sacar 
el tren de aterrizaje, habrá conse- 
guido su objetivo. 


Finalmente indicar que los ca- 
racteres subrayados corresponden 
a la definición gráfica creada en el 
primer programa (por ejemplo A 
A en modo gráfico). Habrá de eje- 
cutarse solamente el primer pro- 
grama, desde el cual se llama al se- 
gundo (línea 9999) que habrá de 
estar grabado en cinta. 
Roberto Lacámara 


16K 


Hog AMAS -- 


mm PROGRAMA 1 
10 КЕМ жаға+іс. -ргеѕепёасіопж 620 FOKE USR "f"+2,BIN 00100000 
20 КЕМ Ж Roberto Lacamara Ж 630 FOKE USR "f"+3, BIN 
100 FOKE USR "a"+0,BIN 00000001 640 POKE USR "f"+4,BIN 
110 FOKE USR "a"+1,BIN 00000010 650 POKE USR "f"+5, BIN 
120 FOKE USR "a"+2,BIN б 660 FOKE USR "#"+6, BIN 
130 POKE USR "a"+3,BIN О 670 POKE USR "f"+7,BIN 
140 РОКЕ USR "a"+4,BIN О 670 
150 POKE USR "a"+5,BIN O 700 "g"+0, EIN о 
160 FOKE USR "a"+6,BIN О 710 "g"+1,BIN O 
170 РОКЕ USR "a"+7,BIN O 720 "g"+2,BIN O 
190 КЕМ ----------------------- 30 Ж зВІМ 11111111 
200 FOKE USR "b"+O,RIN O 740 "9"+4, ВІМ O 
210 РОКЕ USR "b"+1,BIN O 750 POKE USR "g“+5,BIN O 
220 РОКЕ USR "b"+2,BIN O 760 


230 FOKE USR "b"+Z, BIN 
240 POKE USR "b"+4,BIN 
250 POKE USR "Ь"+5, ВІМ 
260 POKE USR "b"+6,BIN веж BIN 
270 РОКЕ USR "b"+7,BIN 20 Я “На, BIN 
290 з 

ЗОО FOKE USR "c"+O,EIN 
510 POKE USR "c"+1,BIN 
520 POKE USR "c"+2,BIN 
330 POKE USR "c"+3, BIN 
340 POKE USR "c"+4,BIN 
350 POKE USR "c"+5,BIN 
360 FOKE USR "c"+6,BIN 
370 POKE USR "c"+7,BIN O 
590 REM ----------------------- 
400 POKE USR "а"+0, ВІМ 
410 FOKE USR "d"+1,BIN 
420 POKE USR "d"+2,BIN 
450 FOKE USR "d"+3,BIN 
440 FOKE USR "d"+4, RIN 
450 РОКЕ USR "d"+5, BIN 
460 POKE USR "d"+6, BIN 00000010 
470 POKE USR "d"+7,BIN ООООООО1 1005 
490 КЕМ ------------------ імта 


t "h"+4, BIN 
t "h"+5, BIN 
t "h"+6, BIN 


000010 
0010 
01000010 
و‎ 01000010 
“іё, BIN 01111 
Ç "i"+7,BIN 10000 


SOQ РОКЕ "e"+0,BIN 1010 
510 POKE Ў "e"+1, BIN 
520 РОКЕ "e"+2,BIN 00000100 


00001000 "C- Quitar piloto automatico. 
T 6,4;"k- Aumentar velocidad. 
1- Disminuir velocidad." 
з "ЅРАСЕ- Estabilizar Мег 
idad.";AT 9,4;"é- Aumentar altur 
590 а. "АТ 10, 7- Disminuir altura 
600 EFO ВІМ “тат 11,4 


540 РОКЕ "e"+4,BIN 
550 РОКЕ "e"+5, BIN 
560 РОК e"+6,BIN 


USR 
USR 
USR 
530 POKE USR "e"+3,BIN 
USR 
USR 
USR 
570 USR "e"+7,BIN 


Я OQ O - Inclinar izquierd 
610 FOKE USR "4"+1,BIN e 


1020 FRINT АТ 12,4;"8- Inclinar 
derecha.";ñT 1Z,4;"T- Controlar 0 
tren de ater. ":АТ 14,4; "1\"{АТ 1 2195 PAPER 1: ІМК 7: FRINT АТ 


TAF Sl Apagar motores";AT 16, VELO. "¡AT 8,2; "AIRE" 
ТАТ 17,4;"4/";АТ 18,4; "0% FRINT ат 19 
19,4;"W i Encender motores 'MOTORES";AT 14 


20,43 "Е 1“ҙАТ 21,43"R/" 
9999 LQAD "AIR RICH" 


"TREN АТЕ";АТ 


MA PROGRAMA E 


1000 КЕМ Ж air rich ж 
1500 КЕМ Roberto Іасатагаж 
2000 CLEAR : INK 6: FAFER О: BOR ba=INT 

С ЕТ t=0: LET h=0: 


FRINT АТ 0,x 
: NEXT x 

DRAW 255,0 

2040 FLOT B1,15 DRAW 85,0 
2050 DRAW 0,-88: DRAW -85,0; DRA 
W 0,87 

2060 CIRCLE 123 
2070 PLOT 83,3 DRAW о 
2080 FLOT 170 DRAW 
2090 FLOT 180,154: DRAW 
DRAW 70,0: DRAW 0,110: DRAW -70, 
(9) 

2100 FLOT 7,154: DRAW 0,-110: DR 
AW 65,0: DRAW 0,110: DRAW -65,0 
2110 FLOT 80,38: DRAW 92,0: DRAW 
0.20: DRAW -92,0: DRAW 0,-20 
2120 PLOT 7,115: DRAW 65,0 

21 PLOT 180,125: DRAW 70,0 
2140 PLOT 180,65: 
2150 PLOT 180,95: 
2155 INK 7: PRINT АТ 8,11; 
T 8,19," =" PRINT АТ 9,2 
ЇЧ AT 7,2 13"2"3AT 
LIRA 

2165 РКІМТ AT 19, 
15,10; "Long. FISTA"; 
b. РІЗТА" 

J РАРЕК О: ІМК 7: FRINT АТ 6, 
A"; "Vel. "¿AT 12,23" 
"Em/h"¡AT 15,5; "о 


108,42 


TH 


"CONTROL" AT 


Т 19,11;"Са | 25672+256%РЕЕК 


6733/50 
IF oo=1 THEN 60 TO 
шср-250: IF cp 
PRINT AT 21,1 
60 TO 3080 


2175 PRINT AT 21,0; 60 250 THEN GO TO 3080 
¡AT 16 21,20 ¡AT 2 0 =1р-250 

PAPER 2: FRINT AT 
2180 PRINT AT 15 VAT 5, i" "АТ 21 
"Паш OFF"; INE "AT 16, 1431 "AT 15 


“¿AT 21 
"зат 14 


tis" "AT 10,2yvas 
ag" "+ 60 TO 


#"1"%АТ 12,25; 
"AT 12,29;"4" 


3090 PAPER 5: PRINT АТ 21,3;" "= 
PAFER 2: PRINT АТ 21,95" " 
3100 GO SUB 3200 

3110 60 SUB 5590 

3120 60 SUB 4150 

3130 60 SUB 3790 

3140 50 SUB 5770 

3150 60 SUB 3910 

3160 50 SUB 5710 

3170 60 SUB 3380 

3175 LET Фіз (РЕЕК 23672+256XPEEK 
23673) /50 

3180 GO SUE 4010 

3190 GO TO 3100 

3200 LET аФ-ІМКЕҮ% 


3210 ІР a$="6" THEN GO TO 3560 
3220 IF (a$="7") AND (а<>0) THEN 
60 о 


3230 
3240 
3250 
3260 
3270 THEN 
3280 PAPER 5: INE О: 
HEN LET mi=0: FRINT 
" 


THEN 
THEN 
THEN 
THEN 


3290 ІР a$="2" THEN 
RINT АТ 12,25; "2" 
3300 IF a$="3" THEN 
RINT АТ 12,27;"5" 
3310 IF a$="4" THEN 
12,29;"4" 


LET 0250; P 


LET m3=0: Р 


КЕТ m4=O; Р 


“У AND (Ё20) THEN 
< 7: PAPER 2: PRINT 
АТ 12,233"1" 

3330 IF (a$="w") AND (Ё20) THEN 
LET т2=1: INK 7: РАРЕК 2: PRINT 
АТ 12,25;"2" 

5540 ІР (a$="e") AND (#>0) THEN 
LET m3=1: INK 7: PAPER 2: PRINT 
АТ 12,27% "3% 

3350 IF (a$="r") AND (Ж>О) THEN 
LET т4=1: INK 7: PAPER 2: PRINT 
AT 12,29; "4" 


33 
3370 RETURN 

3380 INE 7: PAPER 2: 
2v" "AT 5,2Z;ay" " 
р" "¡AT 16,14;1р:;" 


" THEN LET vl=0 


PRINT АТ 5, 
АТ 21,133€ 
АТ 15,23; 


3" "¡AT 21,235ti5" "¡AT 10,2;уа; 
" "¡AT 14,23ra3" “: RETURN 
3390 LET va=ba+INT (RND*XS) 


5400 LET mt=mi+m2+m3+m4: LET f=f 


=mtX3: IF #40 THEN LET f=0 

3410 IF +=0 THEN LET mt=0: INK 
О: РАРЕК 5: PRINT АТ 12,25;"1";4 
Т 12,25;"2";АТ 12,27;"5“ АТ 12,2 
©9;"4": INE 7: PAFER 2 

3420 LET ra=INT (v/5xva) 

3430 IF ra$O THEN LET ra=-ra: L 
ET ra=ra+200 

5440 LET ут-З0ООЖтЕ: 
3450 LET vn=30kmt 
3460 IF er=1 THEN GO TO 3490 
3470 IF v<=vn THEN LET v=vm: LE 
T vl=0 

3480 ІР (у>-ут-5О) 
EN LET v=v-INT (У1/2): LET vl=0 
5490 LET a=a+m: LET v=v+vl 

3500 IF а<=О THEN (ЕТ ато 

3510 IF a>=12000 THEN LET a=120 
оо 

3520 IF 1р<=0 THEN 60 TO 4180 
3530 RETURN 

3540 IF t=1 THEN LET %-О: 
Si PRINT АТ 9,251" w" 
PRINT АТ 9,303" ": 
3550 LET t=1: PAPER 2: PRINT AT 
9,25" "; PAPER 5: PRINT АТ 9,30 

RETURN 
5560 LET h=h-1: 
Т Һһ«-2 

3570 LET т=-5%һ: 
ЕТ m=m+40 

5580 RETURN 

5590 IF a=0 THEN LET m=O: 

шО: RETURN 
3600 LET h=h+1: 


60 TO 3880 


AND (pa=0) TH 


PAPER 
PAPER 2: 
RETURN 


IA 
£ : 


IF h=-3 THEN LE 


IF h=-2 THEN L 


LET h 


IF h=š THEN LET 


h=2 
5610 LET m=-Skh: IF h=2 THEN LE 
Т m=m-40 


3620 RETURN 
3630 LET isi+1: 
THEN LET і=5 
3640 RETURN 
3650 LET ізі-1: 
THEN LET ізі 
2660 RETURN 


LET иті: IF i=4 


LET u=-1: IF 1=0 


3670 LET v=v+9: LET у1=9: LET ра 
= 

0 

3680 RETURN 

5690 LET v=v-9: LET vl=-9: LET р 


a=1 

3700 RETURN 
3710 IF ср<=0 THEN GO TO 3750 
3720 IF mt=0 THEN RETURN 


B 


(773) 


IF oo=1 
3/52 КЕТ Ср 


60 ТО 5755 

: INK 7: PAPER 2: Р 
ка ": LET возі 
THEN LET 1р=1р-1М 


THEN 


РАРЕК O: PRINT AT B+ 


Уй,1342% 
3771 FRINT 


АТ 10+yu, 1 
AT iaa 
АТ 7+yu 


72 FRINT 
3773 PRINT 
4 PRINT 
775 INK 5: 
Һһ,15;м%: LET yu=h 


PRINT 
PRINT 
FRINT 
PRINT 
FRINT 
RETURN 

IF ізі THEN 60 


3790 


2 THEN GO 
THEN 60 
x 
E ": в" 
3830 LET z$=w$: LET x$=f$: LET с 
$=9$: LET v$=h$: LET b$=i$: RETU 
RN 
5840 LET w$= GG": LET h$=" 


"s LET g$= ": LET f$=" 


@ 


4: LET ўва" E 
3850 LET z$=w$: LET x$=f$: LET c 


$=g$: LET v$=h$: LET b$=i$: RETU 

RN 

3860 LET w$=" Ы "4 LET ўва" 
©": LET д%=" LET h$=" E 
Z "r LET i$="D E 

3870 LET z$=w$: LET x$=f$: LET с 

$=g%: LET v$=h$: LET b$=i$: RETU 

RN 

3880 IF er=1 THEN 60 TO 3450 


3870 IF v>=vm THEN LET v=vm: LE 
T у1=0 
3900 GO TO 3450 
3910 IF a=0 THEN RETURN 
3920 IF mi+m2>m3+m4 THEN LET іт 
60 TO 3950 
IF mi+m2<m3+m4 THEN LET im 
60 TO 3950 
RETURN 
LET we=1+INT (RNDXx10) 
IF wec10 THEN RETURN 


LET i=i+im 
IF i=4 
IF ій 
RETURN 
ІР a=0 


THEN LET i=3 
THEN LET ізі 


THEN 60 TO 4070 


50) AND (a>0) 
ТНЕМ GO TO 4190 
4040 IF (a=10) OR (a=5) 
T eu=eu+1: RETURN 
4050 ІР (a>=15) AND (a< 
LET ev=ev+1: RETURN 
4060 LET ец=1: LET ev=1: RETURN 
4070 IF gj=1 THEN GO TO 4200 
4080 IF ((cp=0) AND (t=1) AND (v 
00) AND (у<551)) AND ((eu>29) 
AND (еу>54)) OR (ец>59) THEN LE 
T gj=1: LET vr=1p-vx2000/300: LE 
Т m=O: LET h=0: 60 SUB 4250: КЕТ 


AND (i 


THEN LE 


) THEN 


URN 
4090 PRINT АТ 5,25;"0 " 
4100 IF mt=0 THEN LET k 


LOS MOTORES FARADDS": LET j 

CAYO EN PICADO РОК TENER": EH 
O 4250 
4110 IF cp>0 THEN LET k$=" "; L 
ET j¡$=" NO HA LLEGADO A LA PIS 
TA": GO TO. 4250 
4120 IF t=0 THEN LET к 

DE ATERRIZAJE ": LET j$=" 
МО НА SACADO EL TREN ": GQ TO 42 


Hogramas 


50 4220 IF 1р>уг ТНЕМ 60 ТО 4240 
4120 IF v<400 THEN LET j$=" 4230 LET К%=" "; LET ;%="ЕМНОКАВ 
SE на ESTRELLADO, ": LET k$ UENA , LO на CONSEGUIDO": GO TD 
ATERRIZO MUY DESPACIO": GO TD 4250 
4250 4240 LET k$=" EN LA FIST 
4140 LET ¿$=" SE HA ESTRÉLL A": LET j=" HA FRENADO DEMASIAD 
ADO, ": LET k ATERRIZO BRUS 0 DEFRISA" | N 
CAMENTE": 60 ТО 4250 4250 РАРЕК ё: INK 0: FRINT AT O, 
4150 IF (mt=0) AND (а>0) THEN L 1:39:8Т 1,1;k% 
LET v=v+90: LET h=2: LE 4260 IF cf=1 THEN GO TO 4290 
+ 60 SUB RETURN 4270 FOR w=1 TO 400: NEXT w 
4160 IF er=1 THEN LET ег=0: LET 4280 LET cf=1: LET k$=" 
2 (S/N) ": LET j$= 
4170 RETURN "Desea intentar otro aterrizaje" 
4180 РАРЕК 2: INK FRINT АТ іё : 60 TO 4250 
214840 Fr ЕТ Ë "e LET 3%-" 4290 LET аФ-ІМКЕҮ%: IF a$="s" TH 
SE LE АСАВО LA PISTA": GO ТО ЕМ 60 ТО 2000 
4250 4300 IF а%="п" THEN GO ТО 4340 
4190 LET j$=" БЕ ESTRELLO FOR IR 4210 GO TO 4290 
INCLINADO": LET k$= ñ 4330 RETURN 
BAJA ALTURA": GO TO 4250 4340 STOP 
4200 IF v=0 THEN 060 TO 4220 4350 BEEF .25,-10: BEEF 
4210 RETURN 4360 RETURN 
SUSCRIBASE A 
(12 NUMEROS) 
TARIFA DE PRECIOS DE SUSCRIPCION 
CORREO CORREO CORREO CORREO 
ORDINARIO CERTIFICADO AEREO AEREO-CERTIF 
PTAS $ PTAS $ PTAS. $ PTAS $ 
ESPAÑA 3.000 21 3.273 23 | 3.055 22 3.333 24 
EUROPA. MARRUECOS. TUNEZ, 
TURQUIA, ARGELIA Y CHIPRE 3.456 25 4.272 31 3.600 26 4.418 31 
COSTA RICA, CUBA, CHILE, PA- 
RAGUAY RE DOMINICANAS SI 24l 4212 30 30 | 490 36 
ORE 3264 23) 4080 29 22| 3.965 28 
3.264 23 3.540 25 27 4.050 29 
RESTO PEU MENGE 24567 25 | 4272 31 30| 5040 36 


[ые e жм шә ез су a “с ә чаша. —_ 


Recorte y envie este cupón a: Todospectrum EDISA. Lopez de Hoyos, 141 - 28002 -MADRID 


El importe lo abonaré: POR CHEQUE п CONTRA REEMBOLSO С 
CON TARJETA DE CREDITO O American Express 0 Visa о Interbank o 


Número de mi Tarjeta JET | Fecha de caducidad: —— 
NOMBRE = ара ج‎ 
DIRECCION — кас 

CIUDAD D.P. PROVINCIA 


2 Я 


"МЕ CESAR” 


Fa iss 


X FON m=XVTO XXV 
Ж PLOTm CI :DRAWL, L 


NEXT 
Xl BORDER VI : PAPERVII 


L DMa (ХУТУ 
Da on 


En este mes son multitud a qui- 
nes “no les salen las cuentas”. Para 
eso el Spectrum no tiene ninguna 
solución, pero con ayuda de estos 
programas, podrá realizar sus 
cuentas en números romanos. Es- 
coja: ¿Pascal o Forth? 

El listado 1 ha sido realizado en 
Pascal, gracias al compilador 
HYPS. 

Se declara un tipo T que será 


ІЯ PROGRAMA 1 


Lomoamwos 


una matriz de 16 elementos donde 
se guardan los caracteres que se 
van convirtiendo. Las variables del 
programa son NUM (el número 
que se va a transformar), І (un con- 
tador para movernos por la ma- 
triz), y ROMAND que será el tipo 
T previamente declarado. 

En las líneas 40 a 70 se inicializa 
a blancos la matriz donde vamos a 
guardar los caracteres romanos. El 


3918 10 PROGRAM RUMANOS; 8188 155 
в218 15 ТҮРЕ війа 168 
6218 20 TWARRAY (1..16] ОҒ CH 8100 165 
RR; Віс5 179 
B218 a5 VAR 8102 175 
Buz1 зё NUM, I: INTEGER; B107 188 
5051 35 ROMANO: T; GIN 

40 PROCEDURE INICIALIZAR ( B1ED 185 
E ЕСІМ т); Вада 190 
Вага 45 VAR ваз1 195 
BORA 50 Y: INTEGER; B220 200 
8024 55 BEGIN B236 205 
вазе ве FOR J:mi ТО 16 DO Вазе 210 
во5р 65 ROMANO (01: 2” * Ва53 215 
5084 70 END B271 220 
ваза 75 BEGI +) B280 225 
809% вә RE! M); B283 230 
BOF 85 1: В288 235 
8053 87 WRI Ri16)); B2A1 240 
BAS 90 UR ў B2A1 245 
вав 95 WR ( NUMERO Р В2ВЕ 250 
EDIDO ES,‘ NUM Т! ; Baco 255 
верб 100 IF 4 THEN YRI B205 260 
TELN('EL NUMERO 0! 3IADO GRA B207 265 
NDE’ ) B2ED 270 
is 3% amiat ы SR S 
8120 118 Wi NI бо 8328 285 
8139 120 в B330 290 
8139 125 0 8338 295 
B155 130 B33F 300 
5168 135 8255 305 
В18С 140 Е B355 318 
B18F 145 I 8372 315 
B185 150 в B381 320 


programa principal (restantes lí- 
neas) el algoritmo cousiste en ir 
comparando el número con diver- 
sas cantidades, primero con 1.000, 
900, 500, etc. hasta 1. Cuando el 
número es mayor que el que se 
compara se le asigna a la matriz el 
caracter romano que corresponde 
y se le resta el número con el que 
se ha comparado. 

Hay dos clases de bucles: a) 
cuando se puedan poner 3 caracte- 
res iguales tales como 3M, 3C, 3X 
o 31, se utiliza el bucle WHILE (lí- 
neas 115-140). b) Si sólo se puede 
poner un caracter, caso de la D, L 
o V, se utiliza un bucle IF ya que 
sólo se pasa una vez por él (líneas 
180-195). En los casos tales como 
900 o 400 en los que no se pueden 
escribir 4 caracteres iguales, habrá 
que asignar a la matriz 2 caracteres 
en el mismo bucle, y avanzar el 
contador el doble (líneas 145-175). 

El listado 2 tiene análogos resul- 
tados, con la diferencia de que está 
realizado en Forth. 

Programa en Pascal: José Ramón 
Programa en Forth: Alfonso Martín 


ROMANO [I] : = 524 


“не; 


бомама: (1512; 


ROMANO (11: 2:07; 


290 THEN 


рю: 
а: 


[р 
=S@ THEN 


D:m'L'; 
M-50; 


Hoqramas 


8389 325 END; 
8388 330 IF МОМувёй THEN 1 510 NUM: =NUM-1; 
B39E 336 ВЕСІ 7 8 515 І:=1+1 а 
639E 342 ROMANO CIJ j =’ X аб ð 520 END; 
6388 945 ROMANO [I+i]:='Ù 2 525 WRITELN” 
820% 352 NUM; =NUM-=4.0; A NUMEROS RUMANOS ES y 
БЗЕ8 355 1: =142 £ ы 
8ЗҒ2 362 END; esc 538 FOR 1:21 TO 16 DO 
83Е2 368 WHILE МОМ› 10 DO BSED 555 WRITE (ROMANO [11 ) 
B409 370 BEGIN BSFF 540 END 
5409 375 ROMANO LIJ i BEZ 545 END. 
B428 Зай МОМ: aNUM-10 End Address: B604 
5435 385 Y =1+1 
B43D 390 ND; 
B43F 395 IF МОМ«9 THEN 
B451 400 BEGIN 
S бан F 

+1):=' 
432 415 ат EL NUMERO PEDIDO Е5, 1834 
8498 420 іеі сі 
8483 426 LA CONVERSION ñ NUMEROS ROMANOS 
B4A3 430 Se humo =5 THEN 
B4B9 435 BEG АН ете о MCCXXXIU 
BARE 2 N =NUM=5; а EL NUMERO PEDIDO ES,3552 
B4E5 450 Ше Ізі со š 
6455 455 ЕЙ CONVERSION A NUMEROS ROMANOS 
B4EC 450 ° NUMs4 THEN 
БАРЕ 495  PROMANOCIN = I нах 

к › ч 

8516 425 ROMANO TI +13 5506; ЕШ NUMERO PEDIDO Е5, 7554 
85399 4 5 рый EL NUMERO А 
8523 18% үні О ES DEMASIADO GRANDE 
8548 490 END; = 
8548 495 WHILE NUM>=1 DO 
8554 500 BEGIN Ena 
8564 505 ROMANO CII: 2717; Salida рог pantalla del programa еп Pascal. 


A 1111; 1: l EEE AS а AAA | 


ок 
NR_QUIERES INTRODUCIR NO. (N) 
o po u e entr Lone y VER LISTA (L) 
єкїт p в'еніт уру EL ¿NO 


a S IF SAPS Ele HOR 


Ece нчө ЕТ OUZERES INTRODUCIR NO. (N) 
' VER LISTA ( 
FUE КӨРСЕ ы. por 


ÑA OUIERES INTRODUCIR NO. (N) 
VER LISTA (L) 
INTRODUCE EL NO 

DCCŮXXVII 


5 SUZERES INTRODUCIR NO. (N) 
LISTA( 


ER 
INTRODUCE EL no 
DCCELXXXVITI 


81 ент 


Salida por pantalla del programa en Forth. 


Damas алмаз 


Si по teme ser derrotado рог una máquina. le рго- 
ponemos una lucha “inteligente” contra su Spec 
trum. Para ganar a su oponente, tendrá que colocar 
sus fichas en el extremo del tablero en forma de trián- 
gulo, antes de que él haga lo propio en cl otro extre- 
mo. Se avanza en diagonal, siempre hacia adelante, y 
a casilla, a excepción de que delante exista 
y que la posición siguiente esté libre. Si al- 
guno de los dos jugadores no puede mover, se produ- 
cen tablas. (La indicación de tablas sólo se da cuan- 
do el ordenador queda bloqueado). Las instrucciones 
de manejo se dictan claramente en pantalla. 

Un consejo final: no se desespere si le résulta difícil 
ganar y fíjese cómo actúa su oponente. 


4utor: Gregorio Ferrero 16 K 


VARIABLES UTILIZADAS 


x(6), y(6): Posiciones de las fichas del Spec- 
trum. 

a(6), b(6): Posiciones de las fichas del jugador. 

p(6,2): Almacena la prioridad de movimiento 
de las fichas del Spectrum en las dos direcciones. 

pu: Puntos jugador. 

pus: Puntos Spectrum. 

ink: Color fichas jugador. 

inks: Color fichas Spectrum. 

Tur: Indica quién empieza. 

a$: Nombre jugador. En la línea 1300, a$ = a 
“5” o “n”, 

fi: Fila de la ficha del jugador a mover. 

co: Columna de la ficha del jugador a mover. 

mov: Indica la dirección del avance у si hay sal- 
to. 

sal: Indica la dirección del salto. 

ba, bb: Posición a la que puede saltar el juga- 
dor, y que el Spectrum debe bloquear. 


10 CLS : REM DAMAS CHINAS 
Gregorio Ferrero 1984 
20 GO TO 9000 


50 INPUT "Dime tu nombre";a$ 
60 DIM x(6): DIM y(6): DIM а(6 
DIM b(6): DIM р(ё,2): LET pu= 
LET pus=0 


70 RESTORE 90: FOR f=1 TO ó 

80 READ х,у,а,Ь: LET x(f)=x: L 
ET y(f)=y: LET a(#)=a: LET b(f)= 
bs NEXT f 

90 DATA 0,16,20,16,1,15,19,15, 
1,17,19,17,2,14,18,14,2,16,18,16 


.2.18,18,18 
100 INFUT "Que color eliges? (1 
=6)"zink 
110 ІР іпк<1 OR ink>ó THEN 60 
TO 100 
INPUT "Que color para mi? ( 
"¿inks 
IF inks<1 OR inks>é OR inks 
=ink THEN 6O TO 120 
140 INPUT "Quien empieza? (Yo=1 


:Ти=2) "; tur 
150 IF tur<1 OR tur>2 
TO 140 


THEN 60 


Heqramas 


160 ШЕТ tur=INT (tur)X1000 
170 REM Dibuja tablero 


180 INK О: PAPER ©: BORDER О: С 
Ls 

190 РКІМТ  FAFER 7:АТ O,16í" "š 
АТ 20,165" " 


200 FOR n=1 ТО 19 STEF 2 


210 PRINT PAPER 7 АТ n,15;" "з 
Т «па и 
IF п-19 ТНЕМ GO TO 240 
О PRINT PAPER 7;АТ n+1,145" 
"AT n+1,163" "¡AT n+1,183" " 
240 NEXT п 


245 FOR п=0 TO 20: РБІМТ АТ n,1 


2; PAPER O; INE 7іп: NEXT п 

248 FOR a=0 ТО 4: FRINT АТ 21,а 
+14; PAPER 0; INK 7а: NEXT а 
250 РКІМТ АТ 0,0; INK іпкеҙ"2Х 
SFECTRUM" 

260 FRINT АТО -LEN a$; INK і 
nkjas 


270 FOR m=1 TO ë: 
sy (п): PAPER 7; INK 
а(п),Б іп: INK inks" @": 
GO TO tur 
REM Juega Spectrum 
FOR n=1 TO 6 


FRINT AT 
іпке;" ; 
NEXT n 


IF ATTR (xtm)+1,y(nm)-=1)=0 Т 
LET p(n,1)=0 
IF ATTR (n)+1,y(n)-1)=56 
LET p(n,1)=1 
1030 IF ATTR (x(m)+1,ytn)-1)=56+ 
inks OR АТТК (х (п) +1,у (n)-1)=56+ 
ink TREN LET р (п, 1) =2 
1040 IF АТТЕ (х (п) +1,у(п) +1) =0 Т 
НЕМ LET р‹п, 2) =0 
1050 IF ATTR (х (п) +1,у(п) +1) =56 
THEN LET р(п, 2) =і 
1060 IF ATTR (х (п) +1,у(п) +1) =56+ 


inks ОК ATTR (х (п) +1,у(п) +1) =50+ 
ink THEN LET р(п,2) =2 

1065 IF pín,1)=2 AND ATTR (х (п) + 
2,y(n)-2)=56 AND р(п,2) =2 AND АТ 


TR (х (п) +2,у(п) +2) =56 THEN LET 
i=INT (RNDkK2)—2: IF i=-1 THEN L 
ET іс2: 60 TD 3000 


1070 IF р(п,1) =2 AND ATTR (x (п) + 
2.у(п)-2)-56 THEN LET і=-2: 60 
то 5000 

1080 ІР p(n.2)=2 AND АТТК 
2,у(п) +2) =56 THEN LET i=2: 
0 2000 

1090 МЕХТ п 


(x (пу 
50 T 


1100 FOR n=1 TO 6 

1110 IF «АТТК (alm)-1,b(n)-1)=56 
timks ОК ATTR (a(nm)-1,b(nm)-1)= 
tink) AND ATTR (a(n)-2,b(n)-2)=5 
6 THEN LET і=-2; 60 TO 4000 
1120 IF (ATTR (а(п) -1,6 (п) +1) = 
+inks ОК ATTR (а (п) –1,6 (п) +1) = 
tink) AND ATTR (ап) ~2,6 (п) +2) =5 
6 ТНЕМ LET і=2: БО ТО 4000 

1120 NEXT n 

1140 FOR n=1 TO 6 

1145 IF ATTR (х(п)%1,у(п)-1)-56 


AND АТТК (х (п) +1,у(п) +1) =56 THEN 
LET i=INT (RNDX2)-1: IF i=0 TH 

EN LET ізі: 60 TO 5000 

1150 IF ATTR (x(m)+1,y(n)-1)=56 

THEN LET i=-1: GO TO 5000 

1160 IF ATTR (x(tm)+1,y(n)+1)=56 

THEN LET 1=1: GD TO 5000 


1170 NEXT n 

1180 РКІМТ АТ 10,13; INK 7:"TABL 
INFUT 
$ 

IF a$(i)="s" 
С^: 
STOF 
КЕМ Juega Humano 

INFUT "Fila de ficha a move 
r “Еі: INPUT "Columna de ficha 

a mover ";со: LET co=co+14 

FOR п=1 TO 6 

IF aín)=fi AND b(n)=co THEN 
TO 2050 

NEXT n 

5 PRINT АТ 10,0 


"Otra partidita? (s/n 


OR а%‹1)="5" T 
во TQ 50 


INE 7;"NO HA 


Y FICHA": FAUSE PRINT АТ 10, 
оғ" 60 TO 2010 
2050 INFUT "Моміті епіс?0О-І20;1-6 


ALTO; 2-DER 
2055 IF mo 
2060 IF mov: 
50 TO 2050 
2070 LET mov=mov-1 
2080 IF АТТК (a(n)-1,b(nm)+mov)=5 
6 THEN GO TO 2090 
2085 PRINT AT 1 
ІЕМТО";АТ 15,03 
"s PAUSE 50: 
“зат 
TO 2050 
2090 LET а(п)та(п)-1: 
(n) +mov 


оу 
THEN 60 ТО 2200 
› AND то 2 ТНЕМ 


ІМК 7; "MOVIM 
INK 7: "NO MEI 
PRINT АТ 13,0 
15,03" 


60 


LET b(n)= 


2100 REM Impresion 
2105 РКІМТ PAPER 7; FLASH 1; IN 
К іпк АТ aftn)+1,b(n)-mov;"e": БЕ 
EP .2,10: ВЕЕР .2,15: FLASH O 
2110 РКІМТ РАРЕК 7;AT a(n)+1,b( 
п)-поуў" "¡AT a(n),b(n); INK ink 
рее": BEEF 10: BEEP .2,15 
2120 IF а(п)<2 THEN LET pu=pu+1 
2130 IF pu=10 THEN 60 ТО 2500 
2140 60 TO 1000 
2200 REM Salto 
2210 INPUT "Salto? 
"sal 
2215 IF ва1120 AND sal<>4 THEN 
GO TO 2210 
2220 LET sal=sal-2 
2230 IF ATTR (a(n)-1,b(nm)+SGN sa 
1)<>56 AND ATTR (a(n)-2,b(m)+sal 
)=56 THEN GO TO 2300 
2240 PRINT АТ 13,03 "MOVIMIENTO": 
AT 15 "NO VALIDO" 
2250 USE 50: PRINT АТ 13,03" 
"AT 15,03" У, 
2260 60 TO 2050 
2300 LET а(п)та(п)-2: 
(n)+sal 
2505 РКІМТ РАРЕК 


(0-120;4-рЕЕ) 


LET b(n)=b 


FLASH 1;AT 


рее": BEEF .2,10: BEEF .2,15 
2320 IF а(п)<2 THEN LET pu=pu+2 
2525 ІР а(п) =2 THEN LET ри=ри+1 
2330 IF pu=10 THEN GO TO 2500 
2340 50 TO 1000 

2500 REM Victoria juagador 

2510 FLASH 1: ІМК 7: РКІМТ АТ 10 
„20: INVERSE 1; "HAS GANADO" 

2530 FOR b=0 TO 255 

2540 OUT 254,b: OUT 254,7 

2550 NEXT b 

2560 FLASH O 

2570 GO TO 1300 

3000 REM Salto 

5010 LET x(m=x(m)+2: 
(n)+i 

5015 FFINT 
К inksj¡AT х(п)-2 
P .2,20: ВЕЕР 25: FLASH O 
FRINT РАРЕК 7:8Т х(п)-2.у( 
"ФАТ w(n),y(n); INK inks; 
ВЕЕР .2,20: ВЕЕР .2,25 

IF жіп 8 THEN LET pus=pu 


LET уп) =у 


РАРЕК 7; FLASH 1; IN 


уп) із" 68": BEE 


3035 ІР x(m)=18 THEN LET pus=pu 


3040 IF pus=10 THEN 60 TO 2500 


afn)+2,b(n)-salz INK 
ЕР .2,10: 
2510 PRINT 
п)-ваі1ў“ 


ВЕЕР .2,15: FLASH О 


"ЗАТ а(п),Ь (пу: 


ink; "e": 


РАРЕК 73AT a(n)+2,b( 
INK ink 12; 


BE 3050 60 TO 2000 
3500 REM Victoria Ordenador 
3510 FLASH 1: 


INK 7: PRINT AT 10 


INVERSE 1; "НЕ GANADO" 


¿Por qué correr el riesgo de que 
los curiosos lean sus cartas? Antes 
de que deje volar su imaginación a 
la películas de espionaje, veamos 
qué puede hacer este programa y 
decida después su utilización. 


Este programa le permitirá codi- 
ficar un mensaje basándose en una 
clave determinada, El programa se 
basa simplemente en una tabla 
compuesta por caracteres (en prin- 
cipio se han incluido desde el 
CHR$ 32 hasta el CHR$ 127, in- 
clusive). Gracias a esta tabla y ba- 


® 
арда? 


sándonos en la clave podrá codifi- 
car un mensaje, y también poste- 
riormente partiendo del código 
creado, reconstruirlo. La tabla ini- 
cial se crea colocando la lista de 
caracteres de la variable 1$ como 
referencia de fila y columna, la pri- 
mera línea es la propia lista de ca- 
racteres en el orden en que está la 
variable 1$. La siguiente línea se 
obtiene cambiando de lugar los ca- 
racteres, el último caracter de la lí- 
nea anterior pasa a ser el primero 
de esta línea y así sucesivamente 
hasta completar la tabla. 


Hoqramas 


3520 FOR b=255 TO O STEP -1 5+1 

3530 OUT 254,b: OUT 254,7 4108 IF pus=10 THEN 60 TO 3500 

3540 NEXT b 5000 REM AS 

3550 FLASH O: GO TO 1300 5005 PRINT AT FLASH 1 
4000 REM Bloqueo s INK inks;¿" O: ВЕЕР 
4010 LET Бата(п)-2: LET bb=b(nm)+ .2,25: FLASH O 

i 5010 PRINT АТ x(n) у (п); FAFER 7 
4020 РОК #=1 TO é de 

4030 IF x(f)=ba-1 AND y(f)=bb-1 5020 LET х(п) =х (п) +1: LET у(п) =у 
THEN GO TO 4060 (п) +і 

4055 IF x(f)=ba-1 AND y(f)=bb+1 ЗОЗО FRINT АТ x 

THEN 060 TO 4080 s INK inks; "е": 

4040 NEXT f 25 

4050 GO TO 1130 503 IF w(n)>17 THEN LET pus=pu 
4060 LET x(f)=x (f)+1: LET y(f)=y 5+1 

(4)+1 IF pus=10 THEN 60 TO 3500 

4065 PRINT РАҒЕН 73 FLASH 1; ІМ 60 TO 2000 

К inks;AT x(f)-1,y(f)-1;"0": BEE RESTORE 9030: FOR b=0 TO 7 

Р .2,20: ВЕЕР .2,25: FLASH O READ с: POKE USR CHR$ 144+b 
4070 РКІМТ  PAFER 7:АТ x(f)-1,y( 

$)-13" ": GO TO 4100 NEXT b 

4080 LET x(4)=x(f)+1:3 LET y(f)=y DATA 0.60,126,126,126,126,6 
teel 

4085 FRINT РАРЕК 7; FLASH 13 IN 9040 60 ТО SO 

K inks;AT x (f)—-1,y(f)+1;"@": BEE 

P .2, BEEP .2,25: FLASH O NOTAS GRAFICAS 

4090 FRINT PAPER 73AT x(f)-1,y( 

ЕЕЕ авс... 

4100 РКІМТ ІМК inks;ñT х (f),y(f 

)$" ®": ВЕЕР BEEF .2,25 вес... 

4105 IF к ($) s17 THEN LET pus=pu L 


Los menús que incluye el pro- 
grama permitirán: grabar el código 
o el mensaje en una cinta, cargar 
uno previamente grabado, sacarlo 
por impresora, operar con un texto 
cargado en la memoria o introdu- 
cirlo por el teclado. También in- 
tercambiar el texto residente en 
memoria, por su correspondiente 
código o su mensaje. 

Una vez creada la tabla, basán- 
dose en los caracteres de la clave 
podrá crear el código,. Así, si la 
clave es “PAN” y quiere codificar 
la palabra “COSA” (el resultado 
deberia ser “s/q”) el proceso es el 
siguiente: Buscar en la tabla la li- 
nea correspondiente a la “P” (pri- 
mer caracter de la clave), y la co- 
lumna correspondiente al “C” 


(primer caracter del mensaje); la 
intersección en la tabla en este 
caso de la “s” será el primer carac- 
ter de código. Y así el proceso se 
repite hasta el final del texto; si 
como es normal los caracteres de 
la clave se agotan antes que los del 
texto, se comienza otra vez por el 
primero de la clave. Así, para po- 
der codificar la “A” del mensaje 
comenzamos nuevamente la clave, 
siendo “P” el caracter, y así todas 
las veces necesarias. 

El método para traducir es el in- 
verso; basándonos también en la 
clave primitiva (con la que se codi- 
ficó el mensaje) y siguiendo con 
meo ejemplo, para traducir la 

` buscaríamos la linea de “Р” 
(оша caracter de la clave), у 


ahora buscariamos dentro de esa 
línea el caracter, y traducir “5” (si 
1 tabla es correcta solo habrá una 
una vez encontrado vemos en 
qué columna está y la letra que 
marca esa columna sería la traduc- 
ción de “8”, en este caso la “С”. 
Como antes, si se termina la clave 
antes que el código volveremos al 
primer caracter de la clave. 

Un mismo mensaje se codificará 
distinto según la clave. También 
podemos someter a un mensaje a 
un cierto número de codificacio- 
nes repetidas. Para recuperar el 
texto primero, debemos someter al 
último código al mismo número de 
traducciones también continua- 
das, esto se consigue gracias a la 
utilización adecuada de la opción 


THeqaxas 


“S” del primer menú (intercambio 
de entrada por salida). 

Para mayores complicaciones 
en el código, se puede cambiar el 
orden de los caracteres en la tabla 
(con lo que se crea una tabla dis- 
tinta); línea 180, variable 1$. 
Siempre que no haya ninguno re- 
petido, ni falte ninguno de los que 
vamos a utilizar. Aunque es acon- 
sejable que sean correlativos (sólo 
letras mayúsculas, sólo números...) 
ya que, si no, se complica mucho 
el resto del programa. 

Si hace esto deberá retocar las lí- 
neas 110, 210, 220, 490, 500, 740, 


la longitud de 1$, y del primer ca- 
racter de la lista para tomarlo 
como referencia (inicialmente la 
longitud es de 96 caracteres, y el 
primer caracter es el CHR$ 32, 
que corresponde al espacio; por 
ésto se suma 31 al valor de la posi- 
ción en 1$ para hallar el código ab- 
soluto correspondiente en el ma- 
nual de Sinclair, apéndice A). 

Por último, si reduce el número 
de caracteres ahorrara memoria, 
siendo incluso posible correr en la 
versión de 16K, y también se redu- 
ciría el tiempo de ejecución. 


750,760; adecuando los valores de 


Autor: José Félix Alvarez 16K. 


REM 

КЕМ ЖЖЖЖЖЖЖЖЖЖАЖЖЖЖАЖЖЖЖЖЖЖЖ 

REM JOSE FELIX ALVAREZ 

КЕМ CODIGOS 14/10/1984 

КЕМ ХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

FEM 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕМ  Dimensiona tabla de са 
racteres. Inicializa, 
texto en memoria (texme 
mo). 

КЕМ ЖЖЖЖЖЖЖЖЖАЖЖЖЖКЖЖЖЖЖЖЖХ 

БЕМ 

DIM +%(9%6,96) 

LET texmemo=0 

REM 

КЕМ ЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕМ Define caracteres;l$. 
Y crea tablat. 

160 КЕМ KXKXXXXKXXXXXKKXKKKXXKKKKKK 


170 REM 
180 LET 1%=" !"+СНК% 54+" $7 
)ж+,-./0122456789: BABCDEFGH 


MNOFQRSTUYWXYZ 
mnopqrstuvwxyz(:i 
LET t*(1) 
J PRINT АТ 12,4; INVERSE 1; F 
1; "CREANDO TABLA DE CARACTE 


FOR N=2 TO 96 
LET ЕФ (№) =+Ф (N-1, 96) +t$(N-1 


NEXT N 
CLS 
REM 


КЕМ OOOO OK KOKOK 
REM Introduce clave y mues 
tra el primer menu. 

200 КЕМ ЖУЖЖЖАЖЖАЖЖЖХЖЖАЖЖЖЖЖАЖЖЖЖ 

КЕМ 


Оо INPUT " Introduce la C 
LAVE Я LINE с: IF c*= 
wU THEN: GQ Tü ЗОО 

310 INPUT " 1 Codificar mens 


2 Traducir codigo"? 
с: Cargar texto desde сіп 
4 Borrar el texto en 


5 Cambia tex.: 
мее»? (elige opci 


AND texmemo=1 THE 


THEN GO TO 690 
THEN GO SUE 1140 
: РКІМТ АТ 10.6; FLASH "CARGAN 


DO DEL CASSETTE"¡AT 13,15-LEN (п 
FLASH Ojn$: LOAD пФ DATA e 
LET texmemo=1: CLS : GO TO 


310 

350 ІР m$="4" THEN LET texmemo 
60 TO 210 

IF m$="5" THEN LET texmemo 
LET e$=s 

IF Ө%5>"1" THEN ро ТП 510 
IF texmemo=1 THEN 50 TO 45 


590 КЕМ 

400 FEM ЖЖЖЖЖЖЖЖЖЖЖКЕЖЖЖЖЖЖЖЖЖЖЖ 

410 КЕМ Introduce mensaje y 
lo codifica. 


@ 


ESPECIFICAMENTE 
PARA QL 


FEM ЖЖЖАЖАЖАЖЖАЖАЖЖЖЖЖЖЖАЖ ЖЖЖ 
430 REM 


440 INPUT " Introduce el М 
ENSAJE"** *** LINE e$: IF e 
="" THEN 60 TO 440 

450 DIM s$(LEN еф): LET т%="": 


LET chrclave=i 

460 PRINT АТ 12,7; 
DIFICANDO MENSAJE" 

O FOR N=1 TO LEN es 
J LET yé$=c$(chrelave) 
О LET +fila=CODE уф-зі 
ЭЗ LET columma=CODE еФ(Му-51 
LET x$=t$ (fila, columna) 
O LET z$=z$+x$ 
О IF chrclave=LEN c$ THEN LE 
T chrclave=1: 50 TQ 550 

540 LET chrclave=chrclave+1 

350 NEXT N 
s$=2$ 


FLASH 1;"СО 


managers 


ХХХ ЖЖЖ ХХХ ЖЖЖ ЖЖ 
Imprime codificacion. 
Жак ж 


РКІМТ "MENSAJE (entrad 
"CODIGO (salida): "¡s$ 

60 TO 940 

КЕМ 

КЕМ KKK KKK OK OK FF KF KK KK KEK OK Kk 
REM Introduce codigo y lo 

traduce. 

670 REM ЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖ 
Ë REM 


690 INFUT " Introduce el 
CODIGO" key ** LINE ез: IF е 
$="" THEN GO TO 890 

700 DIM s$(LEN e$): LET z$=""; 


LET chrclave=1 
710 PRINT AT 12 
DUC ION DE CODIGO" 
FOR N=1 TO LEN es 
730 LET yó=c$(chrclave) 
740 LET fila=CODE y$-31 
750 FOR 1-і TO 96 
760 IF t$(fila,d)=e$(N) 
ЕТ у%=СНК® (J+Z1): 


FLASH 1:"TRA 


> 


THEN і 
GO TO 780 


ve=LEN с% THEN LE 
GO TO 810 
800 LET chrcelave=chrclave+1l 


810 NEXT N 
820 LET s$=z$% 
830 КЕМ 


840 КЕМ ЖЖҰЖЖЖЖЖЖЖЖЖЖЖЖЖКЖЖЖЖЖЖ 
850 КЕМ Imprime traducion. 

860 КЕМ ЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
870 REM 

880 CLS : FRINT "CODIGO (entrada 
):";e$? "MENSAJE(salida):";s$ 
890 КЕМ 

900 КЕМ ЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
910 КЕМ Imprime y ejecuta el 

segundo menu. 

920 КЕМ ЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
9 КЕМ 

940 FRINT +1; "Ец1ѕа una tecla р 
ara MENU": PAUSE О: CLS 

950 INFUT " A Copiar el text 
о еп cinta" zru B Escribir t 


exto (impresora) ал С Sali 
r del одгата" * D Nueva 
clave а E Menu anterior"? 
3777n (elige opcion)”, LINE m$ 
960 IF m$ " OR mêze" THEN 6 
TOF 

970 IF m$="D" OR m$="d" THEN 
60 TO 300 

980 IF тФ="Б" ОҚ m$="b" THEN L 
FRINT s$: GO ТО 950 


990 ІР m$="E" OR m$="e" THEN G 
ото 5 
1000 


AND п%<>"а" THEN 


ЖЖХЖЖЖЖЖЖЖЖХЖЖЖЖКЖЖЖЖЖЖ 
Graba el texto. 
ЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖ 


РКІМТ АТ 10,6; 
1; "УО САМОО AL CASSETTE"; 
АТ 15, 15-СЕМ (п%)/2; FLASH Оўпё 
1070 SAVE n$ DATA s$(): 

1080 CLS : 60 TO 950 

1090 REM 

O КЕМ ЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
REM Nombra el texto. 

БЕМ ЖЖЖЖЖЖЖЖЖЖЖХЖЖЖЖЖЖЖЖЖЖЖ 
КЕМ 
CLS : 


INFUT "Nombre del tex 
Я "s LINE n$: ІБ n$="" THE 
N GO TO 1140 
1150 RETLIRN 


ULTIMO AVISO 


¿Eres aficionado a la programaciór 
¿Dominas el código máquina? 

¿Tienes programas originales? 

¿Puedes escribir un buen juego? 
¿Quieres ganar dólares, libras, francos o 
pesetas desde tu casa, en tus horas libres? 


¡NO TE LO PIERDAS! 


+ Ordenadores personales Hard y Soft. 


+ Cursos de Basic. 


Oficinas: RENOVACION EN MARCHA, S.A. 
с/ Espronceda, 34 - 2° int - MADRID-3 
Teléfono (91) 441 24 78 

епда REM SHOP 1 
с Galileo. 4 - MADRID-15 
Teefono (91) 445 28 08 


MULTISYSTEM, 5. A. 


Ей BOUTIQUE INFORMATICA 
* Ordenadores Personales. 
+ Micro-ordenadores de gestión 
Todas las novedades en: 
Programas. - Periféricos - libros 
(nacionales y de importación) 
Para: Spectrum - Dragón - Base 64 
Spectravideo - Oric - Commodore, etc. 
/ San Vicente, 53. ALICANTE, Tel. (965) 21 55 66 


Contacta inmeditamente con: 


CIBERCOMP, S. A. 
Tels. (91) 200 21 00 
(91) 759 22 44 


Ci 


TRAN>S-ENPRESS 


оріага tus pro 


CASSETTE A MICRODRIVE 
MICRODRIVE A MICRODRIVE 
CASSETTE A CASSETTE 

) MICRODRIVE A CASSETTE 


ramas de: 


En В; M. o mixtos, protegidos o no, con o sin 
cabecera. 484К de long. y de "una s 


TRANS-EXPRESS - 1,600 plas. + gastos envio. 
camaumania 


Pelayo, 12 - 08001 BARCELONA 
Тіпо: 301 47 00 - Ext. 20 


ANUNCIESE 
por 


MODULOS 


MADRID 
(91) 73396 62 


BARCELONA 
(93) 3014700 


PROGRAMAS EN MICRODRIVE ZX 
GESTION: 


Contabilidad (P.N.C.) 12.000 
Base de Datos 6.000 
Proceso de textos (español) 6.500 
Calc (hoja electrónica) 4.000 
Control stock y facturación 8.500 
P.TECNICOS 

Agente de Bolsa 6.500 
Mediciones y presupuestos 24.000 


IMPRESORAS: Star 


MEFODOESS sui sentaniioao AL SPECTRUM 


ORDENADORES: Spectrum, Spectrum + Spectravideo, Commodore, Oric, Katson. 
New Print, Seikosha desde 774 ptas. al mes. Monitores. Accesorios 
MODEM TELEFONICO - AMPLIACIONES DE MEMORIA - LAPIZ OPTICO - CURRAH (5. DE VOZ) 


PROGRAMAS EN CASSETTES 


EDUCATIVA 
ais Geografía | 1.900 pis 

Geografía II 1.900 
Curso de Contabilidad ! 2.200 
Curso de Contabilidad 11 2.200 
Curso de Contabilidad III 2.200 
Geometria y Trigonometria 2.200 
Superdesarrollos 1X2 3.900 


(imprime boletos con Impresora Admate) 


desde 1.239 pesetas al mes 


ENVIOS CONTRA REEMBOLSO, GIRO O TALON CONFORMADO 


J 


С/ Silva, 5-4.°. Tel. 242 24 71 - 28013 MADRID 


DE TODA CONFIANZA 


ASI ES = ج ڪڪ‎ 


Por algo es el Servicio Oficiol INVESTRONICA pora los productos SINCLAIR 


SIN SOBRESALTOS. 


Gracias al "COSTE ESTANDAR POR REPARACION” siempre sabes, de antemano, lo que cuesta 
el reparar tu microordenador SINCLAIR, una vez caducada la garantía de tu equipo. 
Sin presupuestos previos, sin gastos adicionales, tenga lo que tenga 
tu microordenador, por mucho que sea, el coste siempre será el mismo según el siguiente cuadro: 


Además tienes la garantía Геродот 166 8250 Mos | 

de que tu equipo será reparado 5. 
por expertos técnicos Spectrum 48К: 6.300 pia 

y con piezas originales SINCLAIR 


— DELEGACIONES HISSA 


С/. Агбаџ, n° 80, piso 5° 1° С/. Son Sotero, n° З. С/. Avda, de la Libertad, п. 6. Blog. 1.2 Enti. Izq. D. 
Telfs.: (93) 323 41 65 - 323 44 04 Telfs.: 754 31 97 - 754 32 34 Telf. (968) 23 18 34 
08036 BARCELONA 28037 MADRID 30009 MURCIA 
Р? de Ronda, n° 82, 1.° E С/. 19 de Julio, n° 10 - 2° local 3 С/. Hermanos del Río Rodríguez, n° 7 bis 
Telf.: (958) 26 15 94 Telf. (985) 21 88 95 Telf.: (954) 36 17 08 
18006 GRANADA 33002 OVIEDO 41009 SEVILLA 
C/. Universidad, n° 4 - 2° 1° Avda. de Gasteiz, n° 19 A - 1° D С/. Travesía de Vigo, n° 32 - 1° 
Telf: (96) 352 48 82 Telf.: (945) 22 52 05 Telf, (986) 37 7887 
46002 VALENCIA 01008 VITORIA 6 VIGO 


С/. Atares, n° 4 - 5° D 
Telf.: (976) 22 47 09 
50003 ZARAGOZA 


HORARIO DE ATENCION AL PUBLICO: de 9 h. a 13 h. (excepto Madrid: de 8 1/2 h. а 17 1/2h) 


AMPLIAMOS POR UN AÑO LA GARANTIA DE TU SINCLAIR 


Si tu microordenador SINCLAIR aún está con la GARANTIA INVESTRONICA vigente y deseas ampliarla por un año más 
(a partir de la fecha de caducidad de la mismo), nada más sencillo: 


HISSA te amplía la garantía por el mismo importe de lo que te costaría una reparación. 
Rellena el cupón con todos los datos y envíalos, con todo lo que se te indica, a la delegación HISSA de MADRID. 


A los pocos días recibirás tu NUEVA GARANTIA. 
CUPON 


J. M. PUBLICIDAD 


“Епміаг el cupón Firmado: 
а HISSA 
С/. San Sotero, 3. 

4) 28037 MADRID”. 
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Precio: 1.550 ptas. 
Recorte y envie este cupón HOY MISMO а:  INFODIS, S.A. -Bravo Murillo, 377-5.°-A. 28020 MADRID 


Precio: 1.550 ptas. 
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Cada envío llevará 95 Pta 


Programar, lo que se dice 
programar, lo puede hacer 
cualquiera. Hacerlo bien уа 
es un poco más dificil. Y si 


además se pretende la 
comercialización del 
producto, lo que empezó 
siendo una diversión puede 
fácilmente convertirse en 
una pesadilla. Lejos de los 
ejemplos conocidos más allá 
de nuestras fronteras, donde 
el joven programador 
confiesa con amplia sonrisa 
su rápido enriquecimiento, 
aquí tendrá que luchar por el 
reconocimiento de su 
trabajo. 


Programando 
entre amigos 


N pequeño apartamento 
[ céntrico en Barcelona es el 
cuartel general de este nu- 
trido grupo de jóvenes pro- 
gramadores. À primera vis- 
ta parece sólo un grupo de amigos 
que se reúnen para hablar sobre 
una pasión común. “Empezamos 
tres, haciendo programas para no- 
sotros. Uno dominaba el inglés, 
otro el código máquina... Ahora 
hemos crecido considerablemente 
en número, pero seguimos traba- 
jando un poco aislados, viéndonos 
mensualmente para comentar los 
problemas y discutir los programas 
en conjunto. Esperamos centrali- 
zar aquí todo el tema de máquinas 
y programas durante este año”. 
Combinando su tiempo con sus 
estudios o con el trabajo, hay veces 
en que deben quitar horas al sue- 
ño, especialmente durante los me- 
ses pesados, con motivo de las fies- 
tas navideñas. “Es el mayor pro- 
blema. Trabajamos a contraco- 
rriente, sacando horas de donde 
podemos. En vacaciones hemos 
llegado a trabajar trece horas dia- 
rias, incluidos los domingos”. Los 
más pequeños tienen alguna limi- 
tación. “Yo lo que me dejen, nece- 
sito la televisión de casa y la em- 
pleo siempre que mis padres no la 


ven”, Otros van más lejos: “Empe- 
cé mañana y tarde hasta que se re- 
ventó el transformador...”. Una y 
otra vez se sucedían anécdotas, 
quizá tan numerosas como sus 
propios programas. 

“El problema es encontrar un 
tema atractivo. A los que progra- 
mamos nos es muy difícil porque 
nos falta un poco de imaginación. 
Tenemos unos cauces muy marca- 
dos en cuanto a la lógica, pero la 
imaginación es algo muy distinto. 
A veces ves por dónde van los ti- 
ros, pero hay que hacer un cuida- 
doso estudio”. Una vez elegido el 
tema, se pasa al código máquina, 
pero tenemos más ilusión que me- 
dios. Este año esperamos contar 
con más medios, con lo que se nos 
facilitará bastante la labor. Traba- 
jar еп código máquina es muy duro 
tal como lo venimos haciendo. A 
veces hemos dado con las rutinas 
de gráficos corriendo un programa 
que se colgaba siempre. Al final te 
dabas cuenta de que te habías olvi- 
dado definir una variable”. 

De lo que desde luego no se olvi- 
daban era del gran esfuerzo a reali- 
zar en la comercialización de sus 
programas. “El distribuidor prefie- 
re hacer el dinero fácil, buscar el 
programa que ya tiene éxito fuera 


y traerlo aquí. Lo que se debe ha- 
cer es buscar programadores aquí 
en España, puesto que los hay y 
muy buenos. Los de fuera tienen 
las mentes más cuadradas. Piensa 
que las rutinas de grabación rápida 
sólo existen en España. Es un error 
pensar que el programa número 1 
en Inglaterra tenga que gustar 
aqui. Una vez fuimos a unos gran- 
des almacenes y les enseñamos los 
cassettes y las carátulas nuevas, y 
al ver las cajas nos dijeron que era 
fabuloso. Sólo pudimos responder- 
les que el programa estaba dentro. 
Lo único que les interesa es la pre- 
sentación”. 

A pesar de las dificultades, se 
respiraba un ambiente de confian- 
za en el futuro. Antonio Pascual, 
en cierta medida responsable del 
grupo, comparte las relaciones pú- 
blicas del mismo con su trabajo en 
un banco y parece conocer bien el 
sector. “Lo que más nos preocupa 
del mercado es el abuso que se 
hace de los programadores. En el 
momento en que un programa se 
vende minimamente, como un 
programa extranjero, la tirada mí- 
nima alcanza los 500 cassettes. Y 
si éstos se venden, los programado- 
res deben llevarse 200.000 pts., y 
esto ha de estar claro. El que ahora 
existan personas que paguen 
40.000 pts. por programa y hagan 
tiradas de 500 o más cassettes, es 
engañar al programador. Y el pro- 
gramador no es tonto. El resultado 
es un abandono de la programa- 
ción. Se debe ir con la verdad por 
delante y ellos han de tener un 
royalty sobre el programa. En to- 
das partes está funcionando así 
menos en España. Los pocos que 
se deciden a aprovechar al progra- 


-mador están abusando. Pero по 


sólo se abusa del programador, 
sino también del comprador. Exis- 
te una casa aquí en Barcelona que 
te vende un programa que no fun- 


„ciona, Cuando vas a reclamar te 


dice que te lo cambia por otro del 
mismo precio, con lo que en reali- 
dad aseguran la venta. Esto es un 
fraude”. 

Quizá aquí resida el secreto de 
su éxito. Que el usuario sepa lo 
que compra y que funcione, y que 
el programador reciba lo que se 
merece por su trabajo, 


Programas /Juegos/Montajes/ 


ШЕН 
TUIMADINACIÓN. 


Darienda suelta atu fantasía 
porque las diversiones 
más emocionantes te esperan en: 
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BRAVO MURILLO, 2 (aparc. gratuito еп C/. Magallanes, 1). Tel: 446 62 31 
DIEGO DE LEON, 25 (араге. gratuito en C/. Núñez de Balboa, 114). Tel: 261 88 01 MADRID 


